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I. 


INTRODUCTION 


A.  BACKGROUND 

This  project,  which  has  been  funded  by  PME  106-1  of  the 
Naval  Electronic  Systems  Command  (NAVELEX) ,  is  part  of  a 
series  of  Radio  Frequency  Interference  (RFI)  measurements 
and  analysis  undertaken  by  the  Satellite  Communications 
(SATCOM)  Laboratory  of  the  Naval  Postgraduate  School  (NAVPG- 
SCOL) .  Previous  efforts  include  evaluation  of  the  AS3018/- 
WSC-1 (v)  shipboard  SATCOM  antenna  /  1  J ,  preparation  of  a 
shipboard  RFI  measurement  package  /— 2-5 evaluation  of 
shipboard  RFI  /— 6 J ,  construction  of  a  shipboard  RFI  simu¬ 
lator  /  7_7,  and  measurement  of  shipboard  SATCOM  terminal 
performance  in  the  presence  of  specific  RFI  sources  /— 8-10_/. 

In  March  of  1977,  this  laboratory  received  funding  from 
PME  106-1  to  develop,  design  and  construct  a  SATCOM  Signal 
Analyzer  at  NAVPGSCOL.  The  purpose  of  this  system  is  to 
provide  high-speed  spectrum  analysis  and  characterization  of 
the  outputs  of  ultrahigh  frequency  (UHF)  communication  sat¬ 
ellite  transponders  while  operating  in  orbit.  This  system 
is  to  develop  techniques  for  use  in  the  design  of  a  SATCOM 
monitoring  system  for  use  in  Naval  Communication  Stations. 

The  first  reports  on  this  effort  include  receiver  design  for 
the  satellite  signal  analyzer  /~ 11_7/  digital  control  and 
processing  for  a  satellite  communications  monitoring  system 
/— 12 _/,  and  hardware  development  for  the  satellite  signal 
analyzer  /“ 13  7* 
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B.  SPECIFIC  GOALS 


The  specific  goals  in  the  development  of  this  system  is 
(1)  to  develop  the  necessary  equipment  to  make  real-time 
signal  measurements  at  the  Naval  Postgraduate  School,  and  (2) 
to  provide  the  necessary  research  and  development  of  real¬ 
time  signal  analysis  techniques  and  equipment  for  use  in  a 
follow-on  version  of  the  Fleet  Satellite  Communications 
Spectrum  Monitor  (FSM)  presently  in  use  at  Naval  Communica¬ 
tions  Stations  to  monitor  the  operations  of  the  Fleet  Sat¬ 
ellite  (FLTSAT)  and  GAPFILLER  satellites. 

C.  SCOPE  OF  THIS  PROJECT 

This  report  documents  the  software  development  of  spec¬ 
trum  analysis  control  as  an  applications  program.  Beyond 
the  documentation,  an  important  aspect  of  this  report  is  a 
description  of  the  various  procedures  used  to  work  the 
SATCOM  Signal  Analyzer  (SSA) . 
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II.  SATCOM  SIGNAL  ANALYZER 


A.  COMPONENTS 

The  SSA  is  constructed  around  an  Interdata  7/32  minicom¬ 
puter  which  provides  control  for  most  of  the  equipment  in  the 
system.  Control  of  some  counters  and  frequency  synthesizers 
as  an  interim  measure  is  achieved  by  the  Hewlett-Packard 
9830A  programmable  calculator.  A  few  control  functions  are 
done  manually.  There  are  three  primary  lines  used  in  the 
SSA  for  the  purpose  of  control  and  digital  data.  They  are 
the  IEEE  standard  digital  interface  bus  (IEEE  488) ,  for 
communication  with  all  Hewlett-Packard  and  Systron  Donner 
equipment;  the  RS-232C  standard  data  communication  link, 
for  communication  with  most  I/O  devices ;  and  the  Interdata 
modified  interface  bus  /~*12 The  reference  frequencies 
to  all  measurement  and  synthesized  equipment  is  provided  by 
a  Hewlett-Packard  5061A  cesium  beam  frequency  standard.  The 
probe,  main,  and  spectrum  receivers  are  the  first  points 
where  the  analog  signal  come  under  computer  control.  At 
these  points  digital  information  is  obtainable  for  all  re¬ 
ceivers  except  the  spectrum  receiver.  Although  the  spectrum 
receiver  is  under  computer  control,  the  analog  signal  is 
digitized  only  in  the  data  acquisition  unit  (DAU) .  Once  the 
analog  information  has  been  converted  to  some  form  of  digi¬ 
tal  information  then  mathematical  algorithms  further  mani¬ 
pulate  the  information  in  the  Floating  Point  Systems  AP-120B 
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array  processor.  The  Fast  Fourier  Transform  (FFT)  is  just 
one  of  many  algorithms  that  are  implemented  in  the  AP-120B, 
but  certainly  the  FFT  is  the  one  of  primary  note.  The  last 
components  of  the  SSA  perform  the  function  of  I/O.  In  most 
cases  the  Tektronix  4014  terminal  is  providing  information 
about  spectrum  or  probe  analysis,  whereas  the  printer,  disc, 
and  tapes  are  devices  for  mass  storage,  utilities,  and  pro¬ 
gram  development. 

B.  SIGNAL  FLOW  AND  CONVERSION 

Figure  2-1  shows  the  SSA  signal  flow  and  conversion.  Al , 
the  RF  Group,  has  a  number  of  functions.  The  RF  Group 
serves  as  the  SSA  front  end.  The  RF  Group  distributes  the 
received  signal  to  the  AN/WSC-3  receiver,  the  A2  blanker  and 
downconverter ,  and  the  HP  8554B  spectrum  analyzer.  The  RF 
Group  transmits  signals.  Transmission  is  from  the  AN/WSC-3 
transmitter  and  the  A20  Probe  Transmitter.  The  RF  Group  pro¬ 
vides  satellite  transponder  simulation.  These  functions  are 
not  under  computer  control.  All  signals  are  analog. 

The  second  channel  in  the  signal  flow  is  the  A2  Blanker/ 
Downconverter.  This  unit  provides  frequency  translation  of 
the  received  RF  to  a  first  intermediate  frequency  band  of 
60-90  MHz.  It  also  delays  the  received  signal  until  the 
blanker  channel  can  perform  the  blanking  logic.  Control  of 
this  unit  is  manual.  The  signal  is  still  in  analog  form. 

Al  and  A2  do  not  have  computer  control ,  nor  do  they  need 
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SSA  SIGNAL  FLOW  AND  CONVERSION 


it.  Their  operations  are  discussed  in  /  13 J .  It  is  at  the 
receivers  that  the  first  elements  of  the  SSA  come  under  com¬ 
puter  control.  The  probe  receivers  (A10  and  A12)  and  the 
main  receiver  A6  operations  are  discussed  in  /  11  and  14_/. 
These  receivers  are  under  control  via  the  control  bus  vice 
RS-232  or  IEEE  488.  The  local  oscillators  to  the  receivers 
are  under  computer  control  via  either  the  IEEE  488  and  HP 
9830A  or  the  control  bus  depending  on  the  frequency  synthe¬ 
sizer.  For  A10,  A12,  and  A6  the  primary  information,  fre¬ 
quency,  is  derived  by  electronic  counters.  It  is  at  this 
point  that  analog  information  is  converted  to  digital  infor¬ 
mation.  The  counters  are  indicating  frequency.  The  HP  9830A 
has  the  ability  to  read  the  counters  and  the  Systron  Donner 
clock.  This  information  can  be  stored  on  tape  and  manipu¬ 
lated  either  by  the  Interdata  7/32  and  AP-120B  or  by  the 
HP  9830A  alone. 

The  spectrum  receiver  is  different.  It  is  the  first 
point  of  computer  control  for  the  analog  signal  that  is  to 
be  used  to  derive  spectrum.  But  there  is  no  conversion  to 
digital  information  in  this  receiver.  Instead  there  exists 
the  ability  to  choose  different  receiver  channels.  These 
channels,  so  as  not  to  confuse  them  with  the  satellite 
channels,  will  be  referred  to  as  Spectrum  Receiver  Channels 
(SPCHNL  A,  B  or  C) .  There  are  also  variable  filters  that 
may  be  chosen  for  spectrum  receiver  channel  C.  The  filter 
bandwidths  of  these  filters  are  3kHz,  10kHz,  30kHz,  100kHz, 
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and  1MHz.  The  third  parameter  to  the  receiver  that  may  be 
changed  is  the  attenuation.  0-127dB  of  attenuation  can  be 
controlled  by  the  computer,  and  0-59dB  can  be  set  by  manual 
means.  The  analog  signal  basically  is  modified  by  this 
receiver  by  down  conversion  to  30MHz,  by  filtering,  and  by 
attenuation.  The  A26  data  acquisition  unit  (DAU)  modifies 
the  signal  further  by  down  conversion  to  base  band  and  then 
doing  analog  to  digital  conversion.  It  is  here  that  the 
analog  signal  is  converted  to  a  digital  form. 

Digital  information  is  available  to  the  host  computer 
for  processing  from  the  HP  9830A  or  from  the  DAU.  (There  is 
a  software  oriented  problem  associated  with  the  HP  9830A. 

The  software  driver  is  the  original  driver  written  for  the 
HP  9830A  for  the  purpose  of  demonstration  and  feasibility. 

It  has  not  been  changed  since.  The  problem  experienced  is 
that  when  taking  data  from  the  HP  9830A  the  Interdata  7/32 
and  HP  9830A  get  out  of  synchronization.  When  operating 
under  one  operating  system  only  about  one  hour  of  communica¬ 
tion  is  observed  before  synchronization  is  lost.  With  the 
same  driver  in  a  different  operating  system  the  synchroniza¬ 
tion  is  lost  after  about  a  minute.  Two  IEEE  Instrumentation 
Bus  Controllers  have  been  delivered  and  will  replace  the 
HP  9830A  as  a  controller.  It  is  expected  that  when  the 
driver  for  these  controllers  is  written  that  the  present 
problem  associated  with  HP  9830A  will  be  solved.)  The  digital 
information  is  then  processed  by  an  array  processor  (Floating 
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Point  Systems  AP-120B) .  The  results  of  this  processing  are 
then  available  for  storage  or  display.  Storage  can  be  done 
on  cassette  tapes,  2.5  M  byte  disc,  and  9-track  magnetic 
tape.  Display  can  be  observed  in  graphic  form  on  the  Tek¬ 
tronix  4014  terminal.  The  Tektronix  terminal  has  enhanced 
graphic  capabilities  and  can  operate  at  154  K  baud.  A  hard 
copy  unit  is  connected  to  the  Tektronix  terminal.  Other 
display  devices  include  a  high  speed  printer,  teletype,  and 
keyboard/CRT  system. 

Increasing  throughput  by  reducing  the  time  that  the  host 
computer  uses  to  provide  communication  between  the  source  of 
the  digital  information  and  the  point  of  processing  is  desir¬ 
able.  This  can  be  achieved  by  directly  interfacing  the  DAU 
to  the  AP-120B.  The  nature  of  the  information  from  the 
probe  and  main  receiver  does  not  require  this  interfacing. 

The  option  of  directly  interfacing  the  DAU  to  the  AP-120B 
requires  some  hardware  modifications  to  the  DAU  /— 15 _7  and 
a  software  package  for  the  AP-120B.  The  hardware  modifica¬ 
tions  are  complete.  The  software  development  is  still  in 
progress . 

C.  METHOD  OF  COMPUTATION  (SPECTRUM) 

For  cohesiveness,  the  method  of  computation  and  capa¬ 
bility  some  of  which  was  presented  in  /  12,  18_/,  are  now 
presented.  Dual  channel,  inphase  and  quadrature,  down  con¬ 
version  of  the  signal  is  used  to  produce  two  baseband  sig- 


18 


nals  which  are  sampled  simultaneously,  held  and  analog-to- 
digital  converted  to  form  the  "real"  and  "imaginary"  com¬ 
ponents  of  a  complex  waveform.  The  bandpass  characteristics 
of  the  RF  are  all  preserved  as  demonstrated  below  and  illus¬ 
trated  in  Figure  2-2. 

Local  Oscillator  Signal:  Cos(uj  t) 

RF  (or  IF)  Signal:  X(t) 

"In-Phase"  Component:  I ( t) =Cos (w  t) x ( t) 

"Quadrature  Phase:  Component:  QTt)  =sin  ( coT  t)  x  ( t) 

Li 

Combining  as  "real"  and  "imaginary"  components  of  a  "complex" 
signal : 


y  ( t)  =  I  ( t)  +  jQ  ( t) 

=  cos  (ujt  t)  x  ( t)  +  jsin  (a)Tt)x(t) 

Li  Li 

=  /cos(ujTt)  +  jsin  (o)T  t) /x  (t) 

=  exp  ( ju)Lt)  x  (t) 

and  taking  the  Fourier  transform, 


F/y  (t)_7  =  F/exp  ( jw  t)  x  ( t)J7 


=  F  (o)-cjt  ) 
x  L 


(1) 


Thus,  the  D.C.  component  in  the  baseband  is  tne  component  in 
the  RF  signal  at  the  frequency  of  the  local  oscialltor.  Con¬ 
tinuing  from  Equation  1: 

00 

F/y(t)_7  =  y  (f )  =  /  x(t)  exp(  j2irfLt)  exp(  j27rft)dt 


=  f  x  ( t)  exp  ( —  j  2tt  ( f — f  L) 
—  00 


Restated  as  the  discrete  Fourier  transform  (DFT) 
n=N=l 

^d  Ex(nx)  exp  (- j  2irKAf  nx ) 

n=0 
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Dual  Channel  Down-Conversion  Technique. 


letting 

Af 


2_ 

NX 


yd(kAf) 


n=N-l 


Kn. 


=  Ex(nx)  exp(-j2iT— ) 
n=0 


(2) 


Where  N  =  number  of  samples 
x  =  sampling  interval 

Af  =  spacing  of  the  equally  spaced  k  discrete 
elements  of  the  spectra 

K  =  0,  1,  2,  - N-l 

yd(kAf)  is  the  frequency  spectrum  composed  of  K  discrete  ele¬ 
ments  having  magnitudes  able  to  be  calculated  from  equation 
(2).  x(nx)  is  the  signal,  a  time  domain  function,  from  which 
data  have  been  acquired  in  the  form  of  N  sampled  amplitudes , 
the  samples  being  taken  once  every  x  seconds.  The  sampling 
rate  or  sampling  frequency  is  1/x  samples/second. 

The  DFT  still  presents  problems  in  that  it  requires 
lengthy  calculations.  The  calculations  can  be  reduced  by 
use  of  the  Fast  Fourier  Transform  (FFT)  algorithm.  Many  of 
the  terms  created  by  substituting  integral  values  of  n  and  k 
into  equation  (2)  are  identical  due  to  the  exp (- j 27rkn/N) 
expression  which  is  inherently  periodic. 

Continuing  by  rewriting  equation  (2) : 

N_1  2tt 

y  (k)  =  Zx(n)  exp(-j^-nk) 

n=0 

2  TT 

replacing  exp(-j— )  by  W  we  have 
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y(k) 


N_1  nk 
=  ExfnJW™ 

n=0 

As  can  be  seen  that  for  each  sampled  data  value  input,  a 
summation  informed  of  the  product  between  the  original  data 
sample  and  each  sine/cosine  values  represented  by  one  com¬ 
plete  circulation  of  the  rotating  parameter  W1*  .  w  can  be 
considered  a  point  of  the  unit  circle,  and  is  also  a 
point  on  the  circle  with  an  angle  n  times  the  angle  of  W. 

The  above  general  FFT  algorithm  is  used  in  the  SSA  for 
Spectrum  Analysis. 

D.  CAPABILITIES  (SPECTRUM) 

The  capabilities  of  the  SSA  are  now  summarized.  Digital 
sampling  is  done  at  baseband  frequencies  while  retaining  all 
passband  information.  There  is  no  time  ambiguity  in  that 
all  frequency  components  existed  throughout  the  sampling 
period.  As  a  comparison,  the  present  FSM  uses  an  analog 
spectrum  analyzer  with  a  scanning  display  so  that  each  fre¬ 
quency  component  is  sampled  at  a  different  time  with  possible 
several  seconds  between  start  and  completion  of  scan.  This 
method  can  produce  misleading  presentation,  especially  when 
using  Time  Division  Multiple  Access  techniques  in  the  sat¬ 
ellite  channel  assignments  with  access  .time  measured  in  se¬ 
conds  . 

If  blocks  of  data  are  processed,  the  size  of  the  block 
determines  the  frequency  resolution  achieved  while  performing 
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the  FFT  process  (this  is  the  case  with  the  SSA) .  Spectrum 
Analysis  can  be  thought  of  as  presenting  the  time  domain 
signal  to  a  bank  of  narrow-band  filters  each  of  which  is 
tuned  to  a  different  frequency.  Resolution  is  limited  by 
the  bandwidth  of  the  individual  filters.  Each  filter  is  Af 
hertz  wide  (equation  2,  Section  C)  and  will  vary  with  N  and 
the  sample  rate.  The  result  of  the  FFT  is  accurate  at 
multiples  of  Af  or  where  the  spectral  component  occurs  at  the 
peak  of  the  individual  filter.  Any  frequency  component  that 
is  not  a  multiple  of  then  occurs  somewhere  along  the  skirt 
of  the  filter  down  to  a  minimum  corresponding  to  a  frequency 
centered  between  two  adjacent  filters.  Typically,  this  error 
is  a  maximum  of  4 . 2dB  for  rectangular  weighting.  This  has 
the  appearance  of  a  "picket-fence"  which  refers  to  an  appar- 
ant  amplitude  error  vs  frequency  for  periodic  signals.  Trans¬ 
lating  this  to  the  SSA,  the  maximum  number  of  samples,  N, 
per  block  is  2048.  The  highest  sample  rate  for  ADC  is  4  MHz. 
Therefore,  a  worst  case  2kHz  frequency  resolution  can  be  ex¬ 
pected  (2kHz  =  4MHz/2048) .  Aliasing  can  occur  if  the  signal 
chosen  is  larger  than  1/t.  The  signal  being  analyzed  must 
be  filtered  to  the  desired  spectral  bandwidth.  The  spectrum 
receiver  has  this  capability.  Presently,  a  frequency  resolu¬ 
tion  of  500Hz  can  be  realized  when  examining  the  1MHz  satel¬ 
lite  bandwidth.  For  individual  channels  a  block  size  of  256 
and  a  sample  rate  of  10kHz  are  used  to  give  a  frequency 
resolution  of  40Hz. 
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III.  COMPUTER  CONTROL  OF  THE  SATCOM  SIGNAL  ANALYZER 


A.  INTRODUCTION 

The  purpose  of  the  SATCOM  Signal  Analyzer  (SSA)  is  to 
provide  the  user  a  means  of  doing  spectrum  monitoring  con¬ 
tinuously  and  permit  a  method  of  making  changes  in  the  spec¬ 
trum  processing  with  ease. 

The  control  of  the  SATCOM  Signal  Analyzer  is  the  result 
of  the  integration  of  the  hardware  and  software  into  one  sys 
tern.  This  is  only  the  first  iteration.  Developing  opera¬ 
tional  concepts  is  evolutionary.  In  that  the  process  is 
evolutionary,  what  is  presented  at  this  time  is  the  SATCOM 
Spectrum  Analysis  System  as  it  exists.  Modification  to  the 
basic  programs  are  contained  in  Appendix  V. 

First,  some  concepts  that  were  in  mind  during  the  pro¬ 
gram  development  are  presented.  The  software  involved  with 
the  SATCOM  Spectrum  Analysis  is  considered  to  be  part  of  a 
system.  The  systems  architecture  is  the  process  of  parti¬ 
tioning  a  large  software  system  into  smaller  pieces.  These 
pieces  have  a  variety  of  labels  such  as  programs,  components 
sub-systems  and  levels  of  abstraction  /  17_/.  This  software 
system  represents  a  set  of  solutions  to  a  set  of  distinct 
but  related  problems.  The  distinction  between  programs  and 
system  will  rely  on  intuition,  because  there  is  no  precise 
definition.  What  will  be  presented  will  be  the  objectives 
of  the  system,  an  overview  of  how  the  objectives  are  accom- 
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plished  and  lastly,  an  examination  of  the  set  of  distinct 
solutions  to  the  problem  of  spectrum  control. 

B.  OBJECTIVES 

The  objectives  of  the  SATCOM  Signal  Analyzer  are: 

1.  To  receive  operator  parameters  from  a  device. 

2.  To  perform  spectrum  analysis  on  a  given  signal  based 
on  the  user's  parameters. 

3.  To  produce  the  results  in  graphic  form. 

In  addition  the  system  must  be  device-independent  (as  much 
as  possible)  and  therefore  portable. 

C.  ACCOMPLI SHMENT 

These  objectives  have  been  accomplished.  The  accomplish¬ 
ment  has  been  achieved  by  development  of  four  components. 
Figure  3-1  demonstrates  their  perspective.  The  components 
are,  information  in,  control  of  devices,  process  of  data, 
and  information  out.  The  processing  of  data  and  information 
out  components  have  been  documented  in  /— 1 6_7-  Evolutionary 
programs  to  replace  those  in  /~1 6_7  are  still  in  progress. 

The  latest  tests  of  these  programs  are  contained  in  Appendix 
V.  The  process  of  receiving  information  and  then  performing 
control  are  grouped  into  one  program. 

D.  SPECTRUM  CONTROL  STRUCTURE  AND  ORGANIZATION 
1 .  Introduction 

The  program  Spectrum  Control  (SPECTRL)  has  the  objec- 
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tives  of  (1)  receiving  information  from  a  user  via  a  device, 
(2)  performing  control  of  different  devices,  and  (3)  trans¬ 
lation  of  information  received.  Information  used  in  this 
section  means  control  information  vice  signal  information. 

The  device  that  is  normally  used  to  input  information  to  the 
system  is  the  C4  panel.  The  C4  panel  is  shown  in  Figure  3-2. 
Control  of  the  spectrum  receiver,  local  oscillators,  and 
status  devices  (C4  panel  and  status  display  CRT)  are  per¬ 
formed  in  this  program.  Where  as  control  parameters  for  the 
AP-120B,  Tektronix  4014,  and  DAU  are  passed  to  the  compon¬ 
ents  doing  the  processing  and  displaying  of  data.  The  Spec¬ 
trum  Receiver  is  shown  in  Figure  3-3.  Splitting  the  actual 
control  up  has  been  done  for  two  reasons.  In  the  case  of 
the  Tektronix  terminal  and  the  AP-120B,  no  control  actually 
takes  place,  but  rather  parameters  are  passed.  The  parame¬ 
ters  are  either  indices  for  looping  or  reference  points  for 
graphics  on  the  Tektronix  screen.  In  the  case  of  the  DAU, 
it  has  been  found  that  setting  all  the  required  registers 
just  before  acquisition  is  prudent.  But  extensive  experi¬ 
menting  in  this  area  has  not  been  done.  It  might  be  shown 
that  present  acquire  routines  could  be  split  up.  That  is, 
the  different  registers  of  the  DAU  could  be  set  at  different 
times.  The  translation  of  the  control  information  is  all 
done  in  SPECTRL. 

Figure  3-4  shows  the  linkage  between  the  various 
programs  of  the  SATCOM  Spectrum  Analysis  System.  SPECTRL 
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Figure  3. 
C4  Panel 
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SATCOM  Signal  Analysis  System:  Linkage 


provides  the  control  information  and  performs  control.  On 
conditions  set  by  commands  the  control  information  is  passed 
as  parameters  to  the  SATCOM  program  by  the  program  MAIN. 

MAIN  is  a  command  processor  and  linker.  SATCOM  presently 
controls  the  DAU,  processes  the  data  and  performs  the  I/O. 

At  this  level  only  three  programs  have  been  mentioned  - 
MAIN,  SPECTRL,  and  SATCOM.  (Initialization  is  done  in  MAIN) . 
It  is  significant  that  SPECTRL  can  interrupt  at  anytime  to 
provide  information.  A  discussion  of  the  two  programs  not 
yet  documented  follows .  Although  under  the  heading  Spec¬ 
trum  Control  and  not  a  subprogram  of  SPECTRL,  MAIN  is  an 
integral  part  of  Spectrum  Control  and  is  presented  first. 

2 .  Command  Processor  and  Linker  -  MAIN 

The  purpose  of  MAIN  is  to  (1)  initialize  the  SSA  for 
spectrum  analysis,  (2)  inform  the  user  of  the  current  status, 
(3)  respond  to  interrupts  from  the  C4  panel,  (4)  operate  on 
commands,  and  (5)  pass  information  to  the  SATCOM  program. 

This  is  done  by  two  major  subprograms  and  a  number  of  small 
subprograms.  The  two  subprograms  are  LINK  and  BLOCK  DATA. 

At  this  time.  Table  I  must  be  introduced.  It  is  a 
listing  of  the  variables  used.  Later  is  this  section  the 
variables  will  be  mentioned.  Introducing  the  variables  when 
first  mentioned  and  stating  their  purpose  will  confuse  the 
reader.  Instead,  all  variables  are  introduced  in  Table  I, 
and  the  reader  is  encouraged  to  refer  to  this  table  in  order 
to  follow  the  documentation. 


31 


TABLE  I 


Variable  Name 
LGTAB  (78 ,10) 


I  DEV 

NUM 

DECMPT 


VARIABLES  FROM  PROGRAM  SPECTRL 


FORTRAN  Format  Description 


1*4 


1*4 


1*4 


LOGICAL 


An  array  used  for  the  pur¬ 
pose  of  a  dynamic  legal 
entry  table.  The  columns 
of  the  array  represent  the 
legal  state  which  the  panel 
is  in.  The  rows  of  the 
array  represent  a  button 
number.  If  the  value  of 
LGTAB  (I,J)  is  1,  then  the 
pushing  of  the  button  will 
not  be  in  error.  IF  LGTAB 
(I,J)  is  a  zero  then  the 
pushing  of  the  Ith  button 
will  cause  entry  into  the 
illegal  button  entry  hand¬ 
ler.  The  J  index  is  changed 
depending  on  which  buttons 
were  pushed.  For  example, 
the  pushing  of  "CTR  FREQ" 
will  cause  the  state  to 
change  so  that  only  the  num¬ 
ber  pad  buttons  can  be  en¬ 
tered.  In  this  way  dynamic 
lockout  is  achieved. 

Used  to  represent  the  de¬ 
vice  number  in  the  KTL  rou¬ 
tines.  The  spectrum  re¬ 
ceiver  IDEV  is  5  for  ex¬ 
ample. 

Used  to  represent  the  num¬ 
ber  of  the  button  on  the  C4 
panel  that  was  pushed.  NUM 
for  RUN  is  72. 

Used  to  set  a  flag  so  that 
decimal  fraction  numbers  can 
be  entered  from  the  number 
pad.  It  is  set  true  when 
the  (decimal  point)  is 

pushed  on  the  number  pad; 
otherwise,  it  is  false. 
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TABLE  I  (con't) 


Variable  Name  FORTRAN  Format 
NUMBER (16)  1*4 

NUMREG  1*4 


PT 

1*4 

POWER 

1*4 

PONTR 

1*4 

JFREQ 

1*4 

REMBER  1*4 


Description 

An  array  used  to  decode  the 
buttons  in  the  number  pad, 
i.e.  a-look-up-table . 

Used  to  store  the  integer 
value  of  the  number  being 
entered  via  the  number  pad. 
It  is  updated  each  time  a 
number  is  pushed  and  cleared 
on  the  "ENTER"  and  "CLEAR 
ENTRY"  buttons. 

Used  to  locate  the  position 
of  the  decimal  with  respect 
to  the  number  of  number 
buttons  that  have  been 
pushed . 

Used  to  raise  the  number 
register  to  a  power  in  base 
10.  It  is  set  to  0,  3,  6 
by  the  "Hz",  "kHz",  "MHz" 
buttons . 

Used  as  a  stack  pointer 
for  the  legal  state. 

Used  as  the  column  index  for 
IFREQ.  JFREQ  is  the  selec¬ 
tion  of  the  frequency  plan 
1  for  GAPFILLER  2  for  FLTSAT 
A,  3  for  FLTSAT  B  and  4  for 
FLTSAT  C.  It  is  set  by  the 
frequency  row  on  the  C4 
panel . 

Used  to  hold  the  value  of 
NUM  when  more  information 
is  required.  Example  -  the 
pushing  of  IFATN  means  that 
a  number  between  0  and  127 
is  going  to  be  entered  via 
the  number  pad.  The  Legal 
Table  (LGTAB)  must  change 
to  permit  the  entry  of  num¬ 
bers  from  the  number  pad. 
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TABLE  I  (con't) 


Variable 


INDEX 


IIFREQ 


LPFBW 


IFATN 


IFREQ ( 20 


CMD 


HOLD 


Name  FORTRAN  Format  Description 

After  these  numbers  are 
entered  they  have  to  be 
linked  to  the  IF  attenua¬ 
tion  control.  This  is  done 
by  remembering  which  button 
number  was  pushed.  REMBER 
accomplishes  this. 

1*4  Used  to  convert  the  value 

of  REMBER  for  use  in  a  com¬ 
puter  GO  TO. 

1*4  Is  the  frequency  in  tenths 

of  hertz  for  the  Fluke 
synthesizer  -  passed  via  the 
KTLWR  subroutine. 

REAL  Is  the  bandwidth  for  the  low 

pass  filter  bandwidth  of  the 
Rockland  Filter  passed  via 
the  KTLWR  subroutine. 

1*4  Is  the  value  of  the  inter¬ 

mediate  frequency  attenua¬ 
tion  of  the  spectrum  re¬ 
ceiver  passed  via  the  KTLWR 
subroutine . 


4)  1*4 


1*4 


1*4 


Is  an  array  of  the  fre¬ 
quencies  used  in  the  FLTSAT 
and  GAPFILLER  satellites. 

The  columns  are  the  fre¬ 
quency  plans  and  the  rows 
are  the  individual  channels. 
Note  in  GAPFILLER  that  Nar¬ 
row  Band  A  and  Narrow  Band 
B  satellite  channels  have 
channel  numbers  21  and  22 
respectively . 

Is  used  to  pass  a  common 
value  of  run,  reset,  or  con¬ 
tinue  to  the  main  program. 

Is  used  to  pass  the  Hold 
command  to  the  main  program. 
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TABLE  I  (con't) 


Variable  Name 

FORTRAN  Format  Description 

STACK (10) 

1*4  Is  the  stack  used  in 

changing  the  legal  table. 

It  will  permit  10  different 
states  that  C4  could  be  in. 
Presently,  there  are  only 
four  states  and  nesting  of 
the  states  has  only  been 
down  to  a  second  level. 

MODE 

1*4  Is  the  column  index  to  the 

array  BUTLIST.  It  is  used 
for  the  purpose  of  creating 
different  sets  of  button  com¬ 
binations  that  are  to  be 
"pressed" (i . e .  simulated) 
by  the  computer.  The  chief 
application  here  is  to  set 
up  modes  other  than  "Wide 
Band",  "Channel  Monitor", 
and  "Manual" .  The  Automa¬ 
tic  Mode  uses  this  mode 
index. 

BUTLI3(  18,6) 

1*4  Is  an  array  of  button  num¬ 

bers  used  by  the  subroutine 
KTLSIM  to  simulate  the  user 
pushing  bottons  by  the  com¬ 
puter.  The  columns  are  the 
modes  (i.e.  "Automatic  Mode 
1")  and  the  rows  are  the 
buttons  to  be  pushed .  The 
first  entry  in  each  column 
is  the  number  of  buttons 
that  are  to  be  "pushed"  +1, 
because  the  simulation  of 
the  pushing  of  these  buttons 
is  done  in  a  do  loop. 

All  of  the  above  mentioned  variables  are  in  common  with  the 
main  program. 


ICNT 

1*4  Is  the  variable  that  con¬ 

tains  the  value  of  the  block 

size;  used  by  the  DAU,  AP- 
120B ,  and  I/O  package. 


35 


TABLE  I  (con't) 


Variable 

Name  FORTRAN 

Format 

Description 

IADC 

1*4 

Is  the  variable  used  to 
select  high  or  low  ADC  in 
the  DAU. 

ITIME 

1*4 

Is  the  variable  used  to 
select  a  time  domain  plot 
(either  YES  or  NO) . 

IAVG 

1*4 

Is  the  variable  used  to 
determine  how  many  times 
data  will  be  acquired  and 
processed,  and  then  this 
number,  IAVG,  will  be  the 
factor  used  in  determining 
the  average  value. 

IPLOT 

1*4 

Is  used  to  indicate  the  num 
ber  of  three  dimensional 
plots  desired. 

ILNL.G 

1*4 

Is  used  to  select  either 
linear  or  log  plot  in  the 
I/O  package. 

ICHN 

1*4 

Is  used  to  select  the 
channel  frequency  from  the 
array  IFREQ  and  is  used  to 
annotate  the  graph. 

The  above  variables  are 
command  LINK  will  pass 
problems  that  precluded 

passed  from  SPECTRL  to  LINK.  On 
these  to  SATCOM.  There  were  system 
using  these  variables  in  common. 

The  following  variables 

are  used  in  SPECTRL  alone. 

FNUMRG 

REAL 

Is  used  as  the  floating 
number  of  NUMREG. 

STATE 

1*4 

Is  used  as  the  column  index 
in  the  array  LGTAB  in  order 
to  change  legal  states. 

There  are  NO  other  significant  variables  to  MAIN,  LINK  or 
SPECTRL. 
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BLOCK  DATA  is  a  program  that  will  permit  the  initia¬ 
lization  of  data.  There  are  three  variables  that  should  be 
examined.  They  are  the  frequency  plan  (IFREQ) ,  the  legal 
table  (LGTAB)  and  NUMBER.  If  a  new  frequency  plan  is  imple¬ 
mented,  the  IFREQ  array  need  only  be  changed.  If  a  different 
panel  or  a  different  input  device  is  used  only  LGTAB  and 
array  NUMBER  need  be  changed.  It  is  hoped  that  the  other  en¬ 
tries  in  BLOCK  DATA  are  self  documenting.  No  flow  chart  is 
necessary. 

LINK  is  the  core  of  the  command  processor  and  linker. 
The  overall  function  of  LINK  is  to  clear  all  devices  by  use 
of  subprograms;  set  the  initial  parameters  by  assignment; 
inform  the  operator  of  the  present  status  by  writing  to  the 
status  display  CRT;  and  wait  for  a  button  to  be  pushed  on 
the  C4  panel.  The  pushing  of  a  button  on  C4  will  cause  an 
interrupt.  The  response  will  be  to  go  to  the  SPECTRL  pro¬ 
gram.  The  only  control  information  passed  to  LINK  that  is 
acted  on  by  LINK  is  a  command.  Other  control  information 
has  been  "passed";  in  that  it  is  in  common  with  LINK.  LINK 
will  continually  check  to  see  if  the  button  pushed  was  a 
command  button.  -If  it  was  a  command,  LINK  will  act;  if  not, 
LINK  will  keep  looping. 

The  commands  are  RUN,  HOLD,  CONT,  and  RESET.  RUN 
will  cause  the  execution  of  the  program  SATCOM.  HOLD  will 
permit  the  storing  in  memory  of  the  values  of  the  different 
buttons  pushed  in  an  array  BUTLIS.  This  will  continue  until 
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the  command  CONT  (continue)  is  given.  On  receiving  the  CONT 
command,  either  the  program  SATCOM  will  be  executed,  or  if 
HOLD  was  previously  pushed,  the  array  BUTLIS  is  used  to  sim¬ 
ulate  the  pushing  of  the  bottons  on  C4.  In  less  complicated 
language  HOLD  permits  the  user  the  ability  to  set  up  for 
another  experiment  while  one  is  already  in  progress.  CONT 
w ill  cause  the  computer  to  repush  all  the  buttons  and  then 
execute  the  program  SATCOM.  RESET  will  cause  LINK  to  reini¬ 
tialize  the  program.  This  has  been  an  attractive  feature 
in  this  development  system.  But  much  time  has  been  spent 
on  its  merits  in  a  follow-on-system.  The  thought  has  been 
that  one  may  not  want  the  operator  to  initialize  the  pro¬ 
cess.  Figure  3-5  are  the  flow  charts  for  MAIN  and  LINK. 

3 .  SPECTRAL 

Although  looking  lengthy  and  possibly  complicated, 
the  SPECTRL  program  only  has  four  functions.  They  are  to 
check  if  the  button  pushed  was  legal,  go  to  a  location  in 
SPECTRL  based  on  the  value  that  the  button  represents,  per¬ 
form  a  particular  function,  and  then  exit.  The  pushing  of 
a  button  on  the  C4  panel  will  cause  an  interrupt.  The  in¬ 
terruption  will  activate  the  KTL  routines  which  will  deter¬ 
mine  which  button  was  pushed  and  pass  to  the  LINK  program 
the  number  associated  with  the  button  just  pushed.  NUM  is 
the  variable  by  which  this  number  is  represented.  NUM  is 
available  to  SPECTRL  because  it  is  in  common  with  LINK.  In¬ 
formation  is  derived  from  the  value  of  NUM.  This  information 
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Figure  3 . 5 

Flow  Diagram  For  Main  and  Link 
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Figure  3.5 (con' t) 

Flow  Charts  for  Main  and  Link 
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is  used  to  perforin  the  first  three  functions  which  are  now 
discussed.  Table  II  shows  the  value  for  NUM  and  the  lamp 
matrix  that  corresponds  to  the  button  on  C4 . 

In  order  to  provide  some  protection  for  the  operator 
and  program,  a  scheme  had  to  be  created  to  be  able  to  dyna¬ 
mically  "lockout"  certain  buttons.  This  lockout  protection 
is  designed  to  allow  the  operator  who  knows  very  little 
about  the  spectrum  process  to  run  the  system.  The  dynami¬ 
cally  changing  legal  state  will  only  permit  certain  buttons 
to  be  pressed  either  because  of  a  certain  state  or  because 
of  sequence . 

Example  1:  The  pushing  of  a  frequency  plan  button, 
say  GAP  for  the  GAPFILLER  frequency  plan  and  the  WIDE  BAND 
button  for  wide  band  (1MHz)  monitoring  will  place  the  panel 
in  a  state  such  that  only  buttons  from  the  CONTROL  and  MODE 
rows  are  able  to  be  decoded.  Any  other  button  pushed  will 
result  in  an  error.  The  error  is  not  a  programming  error. 
The  SPECTRL  program  lights  the  error  light  and  requests 
another  entry  by  lighting  the  "ENTRY  REQUIRED"  light.  No 
other  warning  or  instructions  are  given. 

Example  2:  The  pressing  of  the  MAN  button  for  man¬ 
ual  mode  will  change  the  legal  state  of  the  panel  such  that 
all  buttons  except  those  associated  with  number  pad  (number 
0-9,  decimal  point,  MHz,  kHz,  Hz,  clear  entry)  are  able  to 
be  pushed  resulting  in  a  legal  entry.  In  the  manual  mode  it 
is  hoped  that  the  user  does  know  what  to  do. 
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TABLE  II 

LAMP  MATRIX  AND  NUM  VALUE  TABLE 


BUTTON  NAME 

LAMP 

MATRIX 

CODE 

VALUE 

USED 

BY  NUM 

BUTTON  NAME 

LAMP 

MATRIX 

CODE 

VALUE 
USED 
BY  NUM 

RUN 

0 

72 

100K 

35 

16 

CONT 

1 

73 

1M 

36 

17 

HOLD 

2 

74 

(BLANK) 

37 

18 

RESET 

3 

75 

WIDE  BAND 

40 

7 

DTA  LOG 

4 

76 

CHAN  MON 

41 

8 

(BLANK) 

5 

77 

AUTO 

42 

9 

POWER 

8 

31 

MAN 

43 

10 

AUTO 

9 

32 

FULL  MON 

44 

11 

LOG 

10 

33 

(BLANK) 

45 

12 

DTD 

11 

34 

GAP 

48 

1 

VOLTS 

12 

35 

A 

49 

2 

(BLANK) 

13 

36 

B 

50 

3 

HANNING 

WINDOW 

16 

25 

C 

51 

4 

HAMMING 

WINDOW 

17 

26 

1 

52 

5 

TIME  DOMAIN 

18 

27 

2 

53 

6 

A/D  LOW 

19 

28 

CTR 

FREQ 

38 

A/D  HIGH 

20 

29 

LPF  BW 

39 

ZERO  INSERT 

21 

30 

A/D  RATE 

40 

64 

24 

19 

No.  OF  PLOTS 

41 

128 

25 

20 

WINDOW  TYPE 

42 

256 

26 

21 

IF  ATN 

43 

512 

27 

22 

PLOT  BW 

44 

1024 

28 

23 

AVE  BLKS 

45 

2048 

29 

24 

(BLANK) 

46 

3K 

32 

13 

(BLANK) 

47 

10K 

33 

14 

(BLANK) 

48 

30K 

34 

15 
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TABLE  II  (con't) 


LAMP 

VALUE 

LAMP 

VALUE 

MATRIX 

USED 

MATRIX 

USED 

BUTTON  NAME 

CODE 

BY  NUM 

BUTTON  NAME 

CODE 

BY  NUM 

7 

49 

• 

65 

8 

50 

(BLANK) 

66 

9 

51 

Clear  Entry 

67 

MHz 

52 

(BLANK) 

68 

ENTR 

53 

A 

69 

4 

54 

B 

10 

5 

55 

C 

71 

6 

56 

KTZ 

57 

1 

58 

2 

59 

3 

60 

HZ 

61 

ERROR 

22 

62 

ENTRY  READ 

23 

63 

0 

64 

\ 
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Example  3:  The  pressing  of  any  of  the  DATA  ENTRY 
buttons  will  change  the  state  so  that  only  buttons  in  the 
number  pad  will  be  accepted.  Advisement  will  come  up  on  the 
status  display  stating  that  a  number  must  be  entered  via  the 
number  pad.  The  "ENTRY  REQUIRED"  light  will  also  light, 
because  data  are  required. 

The  legal  table  has  a  different  state  for  each  of  the 
modes  available.  There  is  an  additional  state  of  allowing 
only  the  number  pad  to  be  used.  The  dynamism  of  the  legal 
state  is  handled  by  the  concept  of  a  stack  and  pointer.  The 
legal  state  can  change  to  ten  different  states  with  this 
pointer.  The  states  are  pushed  onto  and  popped  from  the  dy¬ 
namic  stack.  The  first  state  in  is  the  last  state  out. 

Going  to  a  particular  location  in  SPECTRL  is  accom¬ 
plished  by  a  computed  "GO  TO".  In  many  cases  the  value  that 
NUM  holds  is  usually  the  first  two  digits  in  the  label  that 
the  computer  "GO  TO"  will  be  vectored.  Example:  The  value 
NUM  takes  on  for  the  RUN  button  is  72.  The  computer  GO  will 
vector  the  program  to  label  72000.  This  was  done  for  ease 
in  reading  and  making  the  button  association  with  hardware 
easier . 

The  performance  of  a  particular  function  is  the  core 
of  the  SPECTRL  program.  This  particular  function  can  be 
characterized  by  (1)  making  an  assignment,  (2)  performing 
control,  and  (3)  making  a  calculation.  In  some  cases  more 
characteristics  are  present. 
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Example  1:  The  pushing  of  GAP  for  a  frequency  plan 
change  only  changes  a  column  index  in  the  frequency  array 
IFREQ. 

Example  2 :  The  pushing  of  WIDE  BAND  makes  assign¬ 
ment  that  will  be  passed  to  the  DAU  Control  registers,  and 
sets  the  receiver  up  on  the  proper  frequency  with  the  proper 
bandwidth  and  attenuation. 

Example  3:  The  pushing  of  any  button  in  the  block 
size  will  cause  the  block  size  to  be  computer  from  value  of 
NUM  which  is  related  to  the  button  pushed. 

In  essence,  that  is  the  structure  of  the  SPECTRL 
program.  Flow  diagram  for  Spectral  is  shown  in  Figure  3.6. 

E.  SPECTRUM  CONTROL  -  OPERATION 
1 .  Introduction 

The  execution  of  these  programs  will  permit  one  to 
operate  the  SSA  for  spectrum  monitoring.  The  loading  and 
execution  of  these  programs  and  any  other  programs  are  dis¬ 
cussed  in  Chapter  IV  and  Appendices  F  and  G.  Operating  the 
SSA  for  spectrum  monitoring  is  not  difficult.  The  para¬ 
meters  can  be  changed  while  processing  is  going  on  to  set 
up  for  another  experiment.  Assuming  that  the  program  has 
been  started,  the  C4  panel  lights  will  all  be  turned  off  and 
an  instructional  message  will  be  printed  on  the  status  dis¬ 
play  panel.  Initializing  all  the  devices  will  have  been 
done.  The  program  will  be  in  a  loop  waiting  for  a  button 
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Figure  3.6 

SPECTRL  Program  Flow  Diagram 
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to  be  pushed.  Operating  the  spectrum  process  requires  at  a 
minimum,  a  mode  of  operation  and  command  to  run.  The  se¬ 
quence  for  pushing  buttons  is  not  restrictive  if  a  manual 
mode  is  chosen,  but  it  is  restrictive  for  other  modes.  The 
layout  design  of  the  panel  suggests  that  the  operator  start 
at  the  top  left  and  proceed  down  the  panel,  then  to  the  top 
right  and  proceed  down  to  the  control  row,  giving  a  command 
as  the  last  item.  There  are  defaults  set  if  certain  modes 
are  selected.  The  defaults  were  designed  so  that  the  user 
would  be  protected  if  the  user  did  not  make  an  entry  and 
also  as  a  convenience.  These  are  modes  that  require  a  num¬ 
ber  of  buttons  to  also  be  pressed.  But  these  are  "pressed" 
by  the  computer. 

2 .  Selections 

It  is  suggested  that  the  first  selection  be  that  of 
a  frequency  plan.  The  Auxiliary  buttons  1  and  2  are  not 
programmed.  The  next  selection  would  be  a  mode  of  operation. 
Wide  Band  mode  will  set  all  the  equipment  up  for  a  1  MHz 
spectrum  analysis  on  the  GAPFILLER  Frequency  Plan  (Channels 
1  and  2) .  All  defaults  will  be  set  and  only  a  button  from 
the  CONTROL  or  MODE  row  will  be  legal  entries.  To  change 
any  of  the  defaults  (which  are  indicated  on  the  panel  by 
lighting  of  buttons  that  the  computer  "pressed")  press  MAN 
for  manual  operation.  In  chosing  CHAN  MON  for  channel  moni¬ 
tor  also  sets  up  standard  defaults.  But  unlike  Wide  Band 
monitoring  the  program  needs  to  know  which  channel  is 
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desired  to  be  monitored.  The  legal  state  will  change  to 
permit  only  entries  from  the  number  pad  to  be  legal  entries. 
The  operator  will  only  be  able  to  enter  a  number  (use  channel 
numbers  21  and  22  for  Narrow  Band  A  and  B  of  the  GAPFILLER 
Frequency  Plan) .  Once  the  channel  number  is  entered  the 
program  will  pick  the  correct  channel  frequency  from  the 
chosen  frequency  plan  and  change  the  legal  state  so  that  only 
a  mode  or  control  command  can  be  given.  AUTO  is  for  automa¬ 
tic  mode.  It  has  been  programmed  to  the  extend  that  it 
operates  as  CHAN  MON  in  requiring  a  number  to  be  entered 
(e.g.  AUTO  1  for  automatic  Mode  1) .  But  the  particular 
functions  for  the  automatic  modes  have  not  been  defined. 
Comments  in  the  source  listing  indicate  where  these  functions 
can  be  defined.  MAN  selects  the  manual  mode.  The  pushing 
of  this  button  will  change  the  legal  state  such  that  all 
buttons  (except  the  number  pad)  can  be  pressed.  No  defaults 
are  set.  FULL  MON  button  is  still  in  development.  Complete 
revision  of  the  program  STACOM  are  required  for  this  evolu¬ 
tion.  These  programs  and  documentation  are  in  Appendix  V. 
FULL  MON  is  for  a  full  monitor  of  the  GAPFILLER  Satellite. 

It  is  a  monitoring  of  the  Wide  Band  and  two  narrow  band 
channels.  This  is  accomplished  by  setting  the  spectrum 
receiver  and  DAU  up  for  a  signal  at  a  particular  frequency ; 
acquiring  data;  process  the  data,  and;  plot  and  hold  the  data 
on  the  graphics  terminal.  This  is  then  repeated  again,  but 
the  receiver  and  DAU  parameters  are  changed.  The  control  of 
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the  spectrum  receiver,  and  DAU  has  been  completed.  The  I/O 
graphics  package  is  complete.  The  processing  of  the  data  is 
currently  under  the  second  iteration  and  not  available. 

All  other  selections  can  only  be  made  if  the  manual 
mode  has  been  selected  by  the  pressing  of  MAN.  Selection 
of  the  buttons  in  the  IF  FILTER  BANDWIDTH  row  will  change 
the  spectrum  receiver  bandwidth.  The  indications  that  this 
has  been  accomplished  are:  (1)  the  button  lights  up,  (2)  the 
operator  can  hear  the  filter  change,  (3)  the  front  panel 
lights  to  the  spectrum  receiver  will  change,  and  (4)  the  HP- 
1220  scope  presentation  (which  shows  the  down  converted  sig¬ 
nal)  will  change.  A  selection  from  the  FFT  BLOCK  SIZE  row 
will  change  the  block  size.  The  indication  that  this  has 
happened  will  be  only  the  notation  on  the  plot,  and  the 
light  in  the  button  pushed  will  be  lighted.  Three  buttons 
in  the  OPTION  row  are  under  development.  They  are  the  win¬ 
dowing  buttons.  No  windowing  has  been  implemented.  TIME 
DOMAIN  will  cause  the  system  to  display  a  time  domain  graph 
of  the  base  band  signal.  A/D  HIGH  and  LOW  will  select  the 
high  or  low  speed  analog-to-digital  conversion  process  in 
the  DAU.  Only  two  buttons  in  the  DISPLAY  SCALE  row  are  pro¬ 
grammed.  POWER  will  cause  a  power  or  linear  spectrum  to  be 
displayed  when  the  data  is  graphed.  LOG,  however,  will  cause 
the  data  processed  to  be  plotted  on  a  log  scale.  In  the  DATA 
ENTRY  rows  only  PLOT  BW  button  is  not  programmed.  These  two 
rows  provide  a  unique  feature.  They  will  permit  the  entry 
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(via  the  number  pad)  any  number  for  any  of  the  categories 
represented  by  the  button.  All  buttons  operate  in  the  same 
manner.  For  example:  the  pressing  of  IF  ATN  for  IF  Atten¬ 
uation  will  cause  the  legal  state  to  change  to  permit  only 
entries  from  the  number  pad.  A  number  (0-127  in  this  case) 
can  be  entered  by  pushing  the  numbers  in  the  number  pad. 

After  the  numbers  are  pressed,  press  the  ENTER  button.  The 
ENTER  button  will  change  the  legal  state  back  to  what  ever 
state  the  panel  was  in  at  the  time  IF  ATN  was  pushed.  The 
pushing  of  ENTER  will  also  cause  the  number  just  entered  to 
be  used  to  control  the  spectrum  receiver  attenuation.  This 
same  sequence  will  apply  for  all  the  buttons  that  require  a 
data  entry. 

The  number  pad  is  only  engaged  when  any  button  pushed 
has  a  particular  function  which  requires  a  numerical  entry. 
CHAN,  for  example,  when  pushed,  will  engage  the  number  pad, 
because  by  itself  Channel  means  nothing.  Channel  5  means 
something.  CTR  FREQ  for  center  frequency  means  nothing  but 
center  frequency  150MHz  means  something.  The  Clear  entry 
will  clear  all  registers  associated  with  the  number  pad. 

ENTER  button  will  clear  the  number  pad,  "pop"  the  legal  state 
off  the  stack  and  make  the  number  just  entered  available  to 
the  particular  function  that  requested  the  number  pad. 

All  the  buttons  on  the  control  row  are  commands  to 
the  MAIN  program.  The  pressing  of  RUN  will  cause  the  exe¬ 
cution  of  the  SATCOM  program.  HOLD  will  permit  entries  on 
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the  C4  apnel  but  nothing  will  take  effect  until  CONT  is 
pressed.  RESET  will  cause  the  program  to  start  again. 
LOG  has  not  been  programmed. 


DATA 
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IV.  COMPUTER  OPERATION  OF  THE  SSA 


A.  INTRODUCTION 

The  purpose  of  this  section  is  to  document  procedures 
for  operation  of  the  SSA  using  the  host  computer.  To  do 
this,  a  number  of  items  have  to  be  presented.  Many  of  these 
items  are  discussed  in  the  manufacturers'  manuals.  But  in 
an  effort  to  decrease  the  "start-up-time",  i.e.  the  time  it 
takes  one  to  get  accustomed  to  the  system  so  that  more  time 
is  spent  doing  experiments  rather  than  debugging  operator 
problems,  some  of  the  pertinent  concepts  and  commands  will 
be  presented  with  examples.  In  addition,  due  to  the  nature 
of  the  SATCOM  lab,  the  transient  students,  and  the  ease  with 
which  diagnostics  can  be  run,  diagnostic  procedures  are 
presented.  It  is  felt  that  anyone  can  run  any  diagnostic 
at  any  time.  This  should  reduce  troubleshooting-time  by 
localizing  a  problem,  reduce  repair  costs,  and  increase  fam¬ 
iliarity  and  confidence  with  the  system. 

Operation  of  any  of  the  devices  by  the  computer  requires 
a  program  and  the  device  to  be  available.  The  approach  will 
be  to  go  through  each  device  and  state  how  each  one  is  made 
available.  Particular  eccentricities  of  the  device  will 
also  be  made  known.  Having  presented  the  devices,  then  a 
discussion  on  programming  the  system  is  given. 
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B .  DEVICES 


1.  Power 

All  AC  power  is  distributed  through  the  main  switch¬ 
board  located  at  the  entrance  to  the  lab.  The  power  is  dis¬ 
tributed  from  a  polyphase  system  of  three  phases.  Each  phase 
differs  by  one-third  of  a  cycle  of  120°.  The  phases  are 
labelled  on  the  switchboard  as  phase  A,  phase  B,  and  phase  C 
of  which  C  has  four  branches. 

a.  Phase  A 

Phase  A  distributes  power  to  racks  7-11,  15-19, 
and  the  HP  9830  calculator.  All  of  these  racks  require 
power  when  running  the  SSA. 

b.  Phase  B 

Phase  B  distributes  power  to  computer  racks  12- 
14.  Although  the  DAU  is  resident  in  rack  14  it  is  able  to 
be  powered  up  after  rack  16  is  powered  on. 

c.  Phase  C 

Phase  C  has  four  branches  to  it.  For  computer 
operations  only  branch  4  and  one  switch  in  branch  1  to  the 
AW/WSC-3  has  to  be  on.  Branches  1-3  provide  power  to  the 
lab  benches,  rack  0-6,  and  uninterruptable  power  to  the  time 
code  generators  and  frequency  reference  amplifiers. 

2 .  Unit  Power 

Refer  to  Figure  5-1  for  unit  location  in  the  racks. 

a.  Racks  7-11 

Most  items  in  racks  7-11  are  powered  up  when 
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Figure  5.1 

SATCOM  Lab  Rack  Layout 


phase  A  switch  1  and  2  are  thrown.  The  additional  consider¬ 
ations  are  the  Tektronix  4014-1  terminal,  the  Tektronix  4631 
hard  copy  unit,  the  Electrohome  display,  and  the  Ann  Arbor 
terminal.  All  these  devices  are  powered  up  only  when  in  use. 
The  Tektronix  4014  terminal  must  have  the  "Reset  page"  button 
pushed  before  powering  down  this  unit.  This  same  button 
should  be  pushed  after  the  screen  "blooms"  when  powering  on. 
The  hard  copy  unit  takes  5-7  minutes  to  warm  up  before  re¬ 
liable  copies  can  be  made.  The  Ann  Arbor  terminal  is  located 
just  above  the  blowers  in  rack  10.  It  must  be  powered  on  for 
the  Electrohome  CRT  display  to  work. 

b.  Racks  16-19 

All  devices  in  these  racks  will  be  powered  up 
once  the  switches  on  phase  A  are  engaged.  Note  that  the 
HP  9830A  will  also  be  powered  up  or  down  if  the  power  to 
rack  19  is  on  or  off.  The  DAU  power  supply  is  located  in 
rack  16  and  this  condition  should  be  recognized  when  securing 
the  DAU  or  rack  14.  If  a  unit  device  does  not  come  on  after 
powering  up  racks  16-19  then  look  on  the  device  for  a  local 
on/off  switch.  There  are  no  local  on/off  switches  for  the 
NPS  made  equipment. 

c.  Racks  12-15 

The  powering  up  and  down  of  rack  15 ,  the  control 
bus  interface  boards,  is  detailed  in  /~~18_/.  In  rack  14, 
as  has  been  stated,  the  DAU  resides,  but  its  power  supply  is 
connected  to  rack  16 .  The  AP-120B  is  powered  by  local  on 
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and  off  switch  and  the  rack  14  switch  of  phase  B.  Racks  12 
and  13  house  the  computer,  magnetic  tape  and  disc  drivers. 
The  power  to  these  units  is  always  left  on.  The  procedures 
for  powering  up  the  disc  drives  are  set  forth  in  Appendix  F. 
The  magnetic  tape  drive  systems  are  all  powered  on  by  the 
"power"  switch  on  each  unit.  The  computer  is  powered  by  a 
key  switch.  In  the  lock  position  the  switch  panel  is  dis¬ 
abled  . 

d.  Devices  not  in  racks 

The  printer,  teletype,  and  console/center  table 
get  power  from  phase  C,  branch  4.  The  high  speed  printer 
not  only  has  to  be  powered  up,  but  also  must  be  in  the  run 
mode.  This  is  achieved  by  simply  pushing  first  the  ON  and 
then  the  RUN  buttons.  But  to  advance  pages  manually  one 
must  press  STOP  and  then  press  the  paging  buttons.  The  OFF 
button  secures  power  to  the  unit.  The  teletype  is  powered 
on  by  the  local  power  switch  on  the  lower  right.  If  the 
teletype  is  unavailable  after  is  has  been  powered  on,  then 
examine  the  fuse  to  interfacing  power  supply  located  in  the 
teletype  near  the  right  side.  This  fuse  has  a  history  of 
failing  when  power  to  the  computer  is  lost  and  then  again 
restored  while  at  the  same  time  the  teletype  did  not  get 
powered  down.  The  console  and  all  units  on  the  center  table 
also  get  power  from  phase  C,  branch  4. 

3 .  Procedures  for  Power  Up 

Detailed  walk  through  procedures  for  powering  up  the 
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SSA  are  contained  in  Appendix  F. 


C.  PROGRAMMING  THE  SSA 
1.  Introduction 

The  information  contained  in  this  section  is  to  pro¬ 
vide  the  operator  sufficient  information  to  quickly  operate 
the  system.  It  is  not  meant  to  be  a  "cook-book".  The  danger 
of  such  an  item  is  that  the  operator  will  only  be  able  to 
perform  specific  procedures.  It  will  be  impossible  to  per- 
fram  other  tasks  without  some  concept  of  how  the  system  works . 

The  type  of  operation  that  is  performed  on  the  com¬ 
puter  has  either  the  nature  of  a  one  word  command  such  as  to 
execute  a  program  that  already  exists;  or  to  write,  perform 
language  translation,  and  execute  one's  own  program.  The 
most  common  causes  of  errors  on  this  system  are  due  to  the 
operator  not  knowing  which  program  is  running  and  how  the 
computer  system  refers  to  a  file.  One  concept  should  be 
fundamental,  and  that  is:  anything  that  runs  on  the  SSA 
computer  is  only  a  program.  Most  students  that  use  this 
system  are  familiar  with  other  computer  systems  that  are 
larger,  and  seemingly  everything  (loading  a  program,  assign¬ 
ment  of  logical  units,  and  execution  of  that  program)  was 
done  automatically  -  "transparent  to  the  user".  If  start 
up  time  for  the  student  on  this  system  is  to  be  reduced,  the 
student  must  be  able  to  identify  which  program  is  running, 
and  at  which  level  it  is  running.  Too  much  time  can  be 
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spent  looking  in  the  wrong  error  list  only  because  one  did 
not  know  which  program  gave  the  error .  An  example  of  con¬ 
fusion  would  be  one  in  which  the  FORTRAN  compiler  gave  an 
error  message  and  because  this  message  appeared  on  the  sys¬ 
tem  console  the  operator  might  mistake  it  for  an  operating 
system  response. 

What  will  be  presented  will  be  pertinent  features 


and  or  commands  of  the  following  areas 

a) 

the  operating  system 

b) 

CSS  commands 

c) 

utility  programs  (editor,  language  translation 
disc  utilities) 

d) 

diagnostics 

e) 

specific  project  programs 

f) 

special  device  oriented  programs  (AP-120B, 

HP  9830A) . 

2.  Operating  System 

The  name  of  our  operating  system  is  OS/32  MT.  It  is 
a  standard,  general  purpose  operating  system  for  Interdata 
32-bit  computer  systems.  It  supports  a  multiprogram  environ¬ 
ment  with  up  to  255  user  tasks  written  in  FORTRAN,  COBOL, 
BASIC  or  ASSEMBLER  languages.  An  important  feature  to  new 
operators  is  the  Command  Substitution  System  -  CSS.  The 
primary  reference  /— 19 _7  is  quite  adequate,  but  should  not 
be  taken  rigidly.  (Some  of  the  SSA  addresses  are  different 
as  well  as  other  features.)  The  following  are  sections  that 
should  be  read  and  experimented  with  during  the  operator's 
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first  session  on  the  computer: 

Chapter  3  sections:  3.1  -  3.3 

3.4.3 

3.4.5 

3.4.13 

3.6.1  -  3.6.9 

3.6.12 

3.7  -  3.8 

Chapters  1,  3-5,  and  9  should  be  read  after  having  been 
exposed  to  the  system. 

The  MT  in  the  name  OS/32MT,  stands  for  Multi-Tasking. 
The  noun,  "task",  is  a  confusing  label  in  the  reference 
manual.  A  task  is  any  job  that  is  running,  paused  or  just 
loaded  in  memory.  It  could  be  the  users  program,  the  edi¬ 
tor  program,  or  any  other  program.  An  example  follows.  A 
user  would  make  his  program,  for  example,  a  program  written 
in  FORTRAN,  a  task  by  first  creating  this  program  using  the 
editor .  Then  this  FORTRAN  language  program  would  be  conver¬ 
ted  to  assembly  language  and  then  to  object  form.  The  ob¬ 
ject  form  ( "deck" /module)  is  then  established  into  a  task. 

It  is  only  in  this  form  that  this  user's  program  can  be  exe¬ 
cuted.  During  this  whole  process  an  editor  program,  and 
compiler,  and  assembler  programs  had  been  running  as  tasks 
in  order  to  do  the  process.  The  last  program  to  be  running 
was  the  Task  Establisher  program  running  as  a  task.  Under¬ 
standing  what  a  task  is  is  important,  because  in  order  to 
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know  which  program  was  running  is  equivalent  in  knowing  what 
was  the  task.  The  fact  that  the  OS/32  MT  is  multi-tasking 
does  not  mean  it  is  a  time-sharing  system.  There  is  one 
system  console,  and  this  is  not  shared.  The  significance 
of  this  is  that  there  is  only  one  point  of  control  and  is 
restrictive  in  that  nature.  But  it  is  also  very  powerful. 

The  amount  of  control  the  user  has  must  be  realized,  for 
the  user  could  do  damage  to  his  or  anyone  else's  files  or 
running  programs.  If  the  system  is  not  time-sharing  but  is 
multi-tasking  what  is  the  difference?  The  operating  system 
will  permit  255  tasks  to  be  operating  at  one  time.  This 
means  one  user  can  be  using  the  systems  editor  while  creat¬ 
ing  a  program  while  a  second  user  is  collecting  data.  This 
is  all  done  by  partitioning  memory  between  the  tasks. 

The  OS/32  MT  supports  the  concept  of  a  background 
partition  and  a  foreground  partition.  Only  one  job  or  task 
can  be  loaded  in  background  whereas  several  can  be  loaded  in 
foreground.  Any  job  running  as  a  background  task  is  pre¬ 
vented  from  corrupting  the  tasks  in  foreground.  On  the  SSA 
system  program  development  is  done  in  background  while  SSA 
experiment  programs  or  data  collection  programs  are  running 
in  foreground. 

How  the  operating  system  does  what  it  is  to  do  is 
now  presented.  The  purpose  for  this  is  because  one  must  be 
aware  of  (1)  how  a  user  written  program  is  linked  to  the 
device,  in  order  to  program  the  device  or  (2)  how  to  run  more 
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than  one  program  that  communicates  with  one  particular  de¬ 
vice.  It  is  also  necessary  to  be  aware  that  there  has  been 
considerable  software  development  at  the  operating  system 
level  to  link  user  programs  that  communicate  with  devices 
on  the  control  bus. 

To  place  things  in  perspective  the  components  of  the 
operating  system  are: 

'  System  Manager 
Executive  Functions 
Task  Manager 
Timer  Manager 
Memory  Manager 
File  Manager 
I/O  Subsystem 
Resident  Loader 
Floating  Point  Support 

The  components  that  are  of  significance  for  opera¬ 
tion  of  the  system  and  understanding  of  the  software  develop¬ 
ment  are  the  System  Manager  and  the  I/O  Subsystem.  The 
System  Manager  is  of  interest  to  the  general  user  primarily. 
The  System  Manager  handles  all  interaction  between  the  sys¬ 
tem  and  the  system  console  device.  It  provides  the  operator 
interface  to  the  OS/32  MT.  It  executes  as  a  task  in  OS/32  MT, 
and  is  designed  so  that  many  functions  are  performed  through 
Supervisor  Calls  (SVC) .  The  System  Manager  contains  routines 
to  support  direct  access  devices.  All  I/O  requests  to  the 
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system  console  and  logging  device  are  controlled  by  the 
System  Manager.  Commands  from  the  system  console  are  de¬ 
coded  by  the  System  Manager,  and  then  it  calls  the  appro¬ 
priate  executor.  It  contains  logic  to  provide  the  console 
operator  with  messages  in  case  of  error.  The  I/O  Subsystem 
is  composed  of  a  SVC  1  handler,  the  peripheral  device  dri¬ 
vers,  SVC  11  handler,  and  other  routines  such  as  the  Sys¬ 
tem  Queue  Handler.  This  section  is  of  interest  to  users 
who  will  write  drivers  for  future  devices  or  for  those  who 
desire  to  run  SSA  devices  on  other  host  computer  systems. 

All  devices  that  are  connected  to  the  control  bus  are  natur¬ 
ally  driver  dependent,  but  also  they  are  dependent  of  the 
SVC  11  handler  and  KTL  library. 

To  see  how  all  the  programs  fit  in  a  system  will  aid 
one  in  software  development.  Figure  5.2  is  a  simplified 
software  system  diagram.  Two  partitions  are  made  in  this 
diagram  to  represent  views  from  which  one  can  understand  the 
software  system.  These  partitions  are  User/Executive  and 
levels  I,  II  &  III.  The  distinction  between  the  levels  is 
basically  one  of  language  and  specifics.  The  lower  the  level, 
the  lower  the  level  of  the  language  and  more  specific  is  the 
instruction.  The  distinction  between  the  User  and  Executive 
is  not  as  clear.  In  the  sense  used  here,  executive  denotes 
administration  and  decision  making  for  the  computer  system. 

The  User  however,  is  an  employer  who  employs  the  services  of 
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Basic  Diagram  of  the  Software  System 


the  Executive.  The  link  between  the  partitions  is  the  SVC  - 
service  request  call.  There  are  a  number  of  SVC  available 
and  one  doing  program  development  should  be  aware  of  them. 
They  are  as  listed  in  Table  III.  (Note  that  the  documenta¬ 
tion  for  all  Interdata  software  makes  no  reference  to  SVC  4, 
but  in  the  source  listing  this  SVC  is  used.  Also,  SVC  14 
is  available  to  the  USER  as  is  8,  10,  12,  13,  but  SVC  14  is 
shared  with  the  OS/AIDS  program.)  Lastly,  in  this  figure 
only  the  SVC  1  is  shown  as  being  linked  to  the  Executive. 

An  explanation  of  what  actually  happens  is  helpful 
in  understanding  the  software  components.  The  approach  will 
be  top  down.  The  user's  program  in  this  example  will  be  a 
student  written  program  in  the  FORTRAN  language  and  has  the 
task  to  add  two  numbers  and  print  the  results  on  the  printer 
and  then  plot  the  point  on  the  TEKTRONIX  terminal  using  the 
graphics  capability.  The  numbers  are  to  be  added  in  the 
AP-120B.  The  program  first  will  READ  the  data  in  from  the 
console.  Assume  that  the  following  is  the  correct  FORTRAN 
program. 

READ  (5,6)  A,  B 

CALL  VADD  (A,  1,  B,  1,  C,  1) 

WRITE  (6,16)  A,  B,  C 
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1 

2 

3 

5 

6 

7 

9 

11 

14 

15 


TABLE  III 


CODE 


OS/32  MT  SUPERVISORS  CALLS 

FUNCTION 
General  Purpose  I/O 

1  Pause 

2  Get  Storage 

3  Release  Storage 

4  Set  Status 

5  Fetch  Pointer 

6  Unpack 

7  Log  Message 

8  Interrogate  Clock 

9  Fetch  Data 

10  Time  Wait 

11  Interval  Wait 

15  Pack  Numberical  Data 

16  Pack  File  Descriptor 

17  Mnemonic  Table  Scan 

18  Move  ASCII  Characters 

19  Pack 

20  Expand  Allocation 

21  Contract  Allocation 

23  Time  Management 

End  of  Task  (EOT) 

Fetch  Overlay 
Intertask  Services 
File  Management 
Load  TSW 

NPS  Control  Bus  Device  Dependent  I/O 
User  SVC 

ITAM  Device  Dependent  I/O 
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CALL  DRAWABS  (A,  C) 


The  above  program  is  the  USER  MAIN  PROGRAM.  Subroutines  from 
the  AP  Library  (VADD)  Tektronic  Library  (DRAWABS)  and  FORTRAN 
Library  (READ  &  WRITE)  are  used.  The  AP  and  Tektronics  li¬ 
brary  are  one  level  down  from  the  USER  MAIN  PROGRAM  and  one 
level  above  the  FORTRAN  run  time  libaray  ( RTL) .  For  this 
example  we  will  assume  all  I/O  was  done  by  subroutines  in  the 
FORTRAN  Run  Time  Library,  and  further  they  were  done  by  a  SVC 
1.  The  READ  statement  causes  an  entry  into  the  FORTRAN  RTL 
to  subroutine  READ.  This  causes  the  execution  of  the  assem¬ 
bly  language  op-code  of  SVC.  In  executing  that  op-code  cer¬ 
tain  parameters  (i.e.  the  data,  the  logical  unit,  etc.),  are 
passed  to  the  operating  system.  The  operating  system  pro¬ 
cesses  the  parameters  and  makes  the  connection  of  logical 
unit  number  5  and  console  (the  logical  unit  having  been 
assigned  before  executing  the  program) .  The  operating 
system  passes  the  information  to  the  console  driver.  The 
driver  sends  information  to  the  console.  The  console's  hard¬ 
ware  generates  something  on  the  screen  that  meant  "give  me 
something".  Upon  entering  a  number  (two  in  this  case),  the 
data  would  return  via  the  driver  to  the  SVC  1  processor,  and 
the  data  would  be  placed  in  memory  addresses  A  and  B.  Note 
that  the  administrative  function  of  getting  the  data  and 
storing  it  was  done  via  the  OS/32  MT  SVC  1  processor.  The 
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WRITE  statement  is  similar.  It  causes  the  SVC  1  processor 
to  get  data  from  memory.  Location  B;  decodes  the  logical 
unit  and  sends  data  via  the  software  driver  to  the  device  - 
the  printer.  VADD  and  DRAWABS  are  only  intermediate  steps 
on  the  USER  side.  It  is  important  to  note  that  in  all  cases 
every  level  on  the  USER  side  is  device  independent.  Even 
though  subroutines  to  the  AP-120B  and  TEKTRONIX  were  used 
it  was  assumed  that  all  I/O  was  to  be  done  via  the  SVC  1. 
This  was  not  a  great  restriction,  for  there  are  many  pro¬ 
grams  written  for  other  devices,  i.e.  DAU  Support  Library, 
that  use  the  SVC  1  as  its  link  with  the  operating  system. 

How  are  they  device  independent  if  the  program  is  designed 
for  a  particular  device?  The  programs  are  device  indepen¬ 
dent  in  that  they  will  take  input  from  any  device  and  al¬ 
though  its'  output  is  designed  for  a  specific  device,  the 
output  could  be  directed  to  an  alternate  device  and  the 
system  will  still  run  -  i.e.  no  crash.  All  user  programs 
should  be  written  as  device  independent  programs.  This  must 
be  done  so  programs  can  be  transferred  from  one  system  to 
another,  and  so  that  new  replacement  devices  can  be  added, 
(without  having  to  change  the  user  program) ,  as  they  will  be 
in  this  development  system.  What  changes  then?  The  execu¬ 
tive  side.  All  the  drivers  are  specific  to  their  devices. 
The  idea  is  to  keep  things  general  and  system  oriented  at 
the  USER  level  and  push  the  specifics  to  the  lowest  level 
and  if  possible  all  the  way  to  the  drivers.  Two  examples 
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follow.  Consider  changing  only  the  Fluke  frequency  synthe¬ 
sizers.  Only  one  driver  need  to  be  changed  presently.  But 
if  one  had  written  a  user  program  that  was  tailored  to  the 
frequency  synthesizer,  then  not  only  would  the  driver  have 
to  be  changed  but  also  the  user  program.  The  second  ex¬ 
ample  exhibits  not  the  change  of  a  device  but  rather  the 
change  of  a  bus  either  the  control  bus  or  the  IEEE  488.  It 
might  not  be  necessary  to  change  the  drivers  to  all  the  de¬ 
vices  on  the  bus,  but  rather  create  a  SVC  designed  for  a 
particular  need.  This  is  how  the  present  SVC  11  was  develop¬ 
ed.  If  the  user  programs  are  dependent  on  developemnt  de¬ 
vices  and  busses  then  there  will  be  a  lot  of  reprogramming 
as  the  devices  change. 

Before  leaving  the  operating  system,  the  one  major 
stumbling  block  in  the  mechanics  of  operating  the  system 
is  a  misunderstanding  of  what  a  file  is.  On  this  system 
a  file  can  be  almost  anything.  A  file  does  not  mean  just 
some  software  module  on  a  disc.  The  printer  is  a  file,  and 
the  teletype  is  a  file.  There  is  a  file  called  the  "NULL:" 
device.'  By  making  a  logical  unit  assigned  to  the  NULL  de¬ 
vice  output  requests  are  ignored.  No  output  takes  place. 

That  is,  when  the  operating  system  processes  the  SVCl,  no 
output  takes  place.  The  program  will  continue.  An  example 
for  use  of  the  NULL:  device  follows.  In  software  develop¬ 
ment  a  user  has  a  program  that  is  to  print  out  a  number  many 
times  before  ending.  To  have  this  same  program  run  to  check 
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out  just  the  logic  of  the  program  the  NULL:  device  could  be 
assigned  to  that  logical  unit  to  which  the  printer  might 
normally  have  been  assigned.  Files  all  have  names  to  them. 

At  all  times  all  components  of  the  name  are  used  by  the 
operating  system,  but  it  might  not  be  necessary  to  type  the 
full  name  either  due  to  a  default  or  the  way  a  CSS  is  written. 
All  devices  have  file  names  that  end  with  a  colon  (:) .  By 
typing  D  D  on  the  system  console  one  can  see  the  labels  that 
exist  for  the  devices  in  the  lab.  Note  the  "NULL:"  device. 
Specifically,  the  following  commands  could  be  given  assuming 
assignment  of  logical  units  had  previously  been  done. 

USER  TYPES  MEANING  COMPUTER  RESPONDS 


D  LU 

Display  Logical 

05 

CON 

Units 

06 

PR 

CL,  6 

Close  Six 

AS  6,  NULL: 

Assign  Six  to  NULL: 

D  LU 

05 

CON 

06  NULL 


The  three  components  to  the  file  descriptors  are 
volume,  file  name,  and  extensions.  File  descriptors  apply 
to  the  software  files  on  the  disc.  Example:  MON  7: 
SPRCVR.FTN.  This  is  a  FORTRAN  file  with  the  name  SPRCVR 
on  the  disc  MON  7.  The  extensions  that  are  used  on  our 
system  are  located  in  the  reference  manual  /  17_7-  The 
added  extensions  are  listed  in  Table  IV.  The  error  associa¬ 
ted  with  the  file  descriptors  are 

1)  Not  including  the  colon  (:)  when  referring  to  a 
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TABLE  IV 


AP-120B  FILE  DESCRIPTOR  EXTENSIONS 

APS  -  AP  SOURCE 

APO  -  AP  OBJECT  -  NOT  7/32  OBJECT 
APE  -  AP  EXECUTIVE  -  FOR  AP  SIMULATOR 
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device . 


2)  Forgetting  that  the  system  volume  was  being  used  as 
the  default. 

3)  Not  knowing  that  a  CSS  command  was  written  taking 
into  account  that  an  extension  would  not  be  given. 

For  clarification  of  the  problems  read  the  section  on  CSS 
commands . 

3 .  CSS  Commands 

The  Command  Substitution  System  (CSS)  is  an  exten¬ 
sion  to  the  OS/32  MT  command  language.  It  is  nothing  more 
than  another  program.  The  statements  in  this  program  are 
either  operating  system  command  or  other  CSS  commands.  In¬ 
stead  of  typing  a  number  of  operating  system  commands  to 
do  the  job  all  these  commands  can  be  placed  in  one  file 
called  a  CSS  file  or  program.  When  this  program  is  execu¬ 
ted,  one  is  executing  a  CSS  command.  Note  that  unlike 
operating  system  commands ,  CSS  commands  are  user  written 
programs  and,  therefore,  changeable.  These  "commands"  can 
be  created  by  the  use  of  the  editor  or  "BUILD"  command.  The 
obvious  application  for  the  CSS  commands  are  those  when  the 
user  does  not  want  to  issue  a  set  of  operator  commands  to  do 
a  particular  job  waiting  for  each  result  of  the  individual 
operator  command.  As  an  alternate:  group  in  one  CSS  pro¬ 
gram  all  the  commands  that  could  normally  be  issued  Execute 
the  CSS  program.  The  amount  of  time  that  can  be  saved  in 
doing  this  is  probably  the  single  most  useful  feature  of  the 
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system  to  students  that  use  it.  Certainly  there  are  many 
features  to  the  SSA,  but  these  are  expected.  To  not  have 
to  "baby-sit"  the  computer  will  free  the  student's  time. 

How  to  write  these  CSS  commands  is  well  covered  in 
/— 17 _7/  but  here  is  the  concept  of  what  happens.  The  opera¬ 
tor  will  type  something  on  the  console.  The  computer  will 
then  try  to  decode  it  as  an  operator  command.  If  it  cannot 
be  decoded  as  an  operator  command  then  it  will  treat  the 
something  as  a  file.  It  will  then  go  to  the  file,  read  the 
file  and  try  to  execute  what  it  is  reading,  as  if  the  file 
was  a  set  of  operator  commands.  If  the  file  does  not  exist 
then  an  error  will  be  displayed.  Examples  follow. 

Example  1:  Assume  the  user  types  "PR:".  PR:  is  not 
an  operating  system  command;  so,  it  will  check  to  see  if  PR: 
exists  as  file,  and  it  does.  Remember  devices  are  "files" 
and  PR:  is  the  label  for  the  printer.  The  computer  will  then 
go  to  the  printer  and  try  to  read;  it  cannot,  so  an  error 
will  result. 

Example  2:  Assume  a  file  exists  with  the  name  JOB. 
ASN;  that  the  statement  in  that  file  is:  "AS  5,C0N:";  that 
the  user  has  a  job  he  has  loaded  as  a  task  and  now  would  like 
to  assign  logical  units.  The  user  could  type  "AS  5, CON:" 
using  the  operating  system  command  to  assign  logical  unit 
number  5  to  the  console.  Or  one  could  type  JOB. ASN.  This 
is  not  a  operating  system  command  so  the  computer  looks  for 
the  file  JOB. ASN,  reads  it,  and  tries  to  execute  it,  which 
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it  can  do  in  this  case. 

Example  3:  Assume  the  user  wants  to  make  five  ob¬ 
ject  modules  from  FORTRAN  sources;  wants  to  make  one  task 
called  JOB.TSK;  has  a  TET  file  to  include  the  five  object 
modules;  wants  to  copy  this  file  to  a  cassette  tape,  and 
then  display  the  devices  on  the  system.  To  do  this  by 
operating  system  commands  would  take  the  same  time  to  do  it 
as  with  a  CSS  command,  but  with  the  CSS  command  the  user 
does  not  have  to  wait  to  execute  the  next  command.  The  user 
would  enter  the  editor  and  create  a  CSS  program,  and  save  it 
in  file  with  a  label  of  his  choice  -  assume  the  label  for 
this  file  is  "DOIT. CSS".  The  actual  entries  would  be: 

BIGBOY  ONE,  TWO,  THREE,  FOUR,  FIVE  -  CSS  command  to  FORTOBJ 

files  ONE,  TWO,  THREE, 
FOUR,  FIVE.  FORTOBJ 
is  a  CSS  file  to  take 
(file  name) .  FTN  and 
language  translate  it 
to  (file  name) .  OBJ. 

FORT  JOB  -  a  CSS  command  to  lan¬ 

guage  translate  and 
include  all  files  in  a 
TET  file  to  make  a 
task  called  (file  name) . 
TSK 

COPYT  JOB.TSK,  CAS1:  -  a  CSS  command  to  use  OS 

COPY  to  copy  a  task  from 
file  1,  to  file  2  where 
file  one  is  JOB.TSK, 
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file  2  is  CASl:  in 
this  case. 

D  D  a  operating  system 

command  to  display 
devices . 

$EXIT  -  a  CSS  statement  that 

indicates  this  is  the 
end  of  the  CSS  command 
-  DOIT. CSS 

Note  this  CSS  command  is  just  another  program,  where  the 
statements  are  other  CSS  commands  and  operating  system 
commands.  It  was  created  by  the  user  for  a  particular  use. 
Now,  by  executing  DOIT  just  by  typing  "DOIT"  the  computer  is 
executing  the  commands  in  DOIT  rather  than  executing  the 
commands  from  the  console.  (The  console  has  not  lost  con¬ 
trol.)  For  detail  use  see  /” 19_7*  A  number  of  CSS  commands 
were  provided  by  Interdata,  C3,  and  BDM.  Some  are  also 
provided  in  this  report  in  Appendix  U. 

The  problems  that  arise  in  using  CSS  commands  are  in 
two  areas,  but  are  associated  with  the  descriptor  and  how 
the  system  uses  it.  The  file  descriptor  includes:  volume, 
file  name,  and  extension.  To  execute  CSS  commands  the  CSS 
file  must  be  either  on  the  "system  volume"  (set  by  the  "V" 
command)  or  the  full  file  descriptor  must  be  used.  Assume 
the  system  volume  is  M0N7,  and  the  CSS  file,  DOIT,  is  on 
M0N5.  To  execute  it  one  must  either  type  M0N5:D0IT  or 
change  the  system  volume  to  M0N5.  The  second  problem  that 


usually  occurs  in  the  execution  of  a  CSS  command  is  that  the 
computer  will  use  the  system  volume  as  a  default  if  it  is 
not  specified.  In  some  CSS  files  the  extensions  are  already 
provided.  Example:  "FORT  JOB.FTN"  typed  on  the  console 
will  give  an  error,  because  the  passing  parameter  is  JOB.FTN. 
Reading  what  the  FORT  CSS  command  is  will  show  that  it  has 
replaced  an  "@1"  with  the  phrase  JOB.FTN.  But  note  the  very 
next  character  to  the  @1  is  . FTN  (01.FTN) .  So  the  resulting 
descriptor  is:  VOLM: JOB .FTN. FTN. 


System  Volume 

JOB . FTN 

FTN  -  used  by 

the  computer 

(default) 

@1 

FTN  -  written 

in  the  CSS 

The  computer  will  not  permit  double  extensions  (FTN. FTN)  and 
the  result  will  be  an  error.  Now  let  us  assume  that  JOB.FTN 
is  on  M0N5,  that  the  system  volume  is  M0N7  and  FORT  is  the 
CSS  file  on  M0N5.  To  execute  FORT  one  would  type  M0N5:F0RT 
JOB.  The  system  volume  will  be  used  as  the  volume  for  the 
file  descriptor  and  the  FORT  command  will  cause  the  computer 
to  look  for  a  file  M0N7:J0B.FTN  to  compile  because  the  de¬ 
fault  volume  is  the  system  volume,  and  the  computer  will 
never  find  it.  To  avoid  these  problems  know  what  the  system 
volume  is  and  change  it  if  need  be.  Know  what  the  passing 
parameters  are  to  the  CSS  programs.  Know  what  extensions 
the  CSS  program  will  add  on,  if  any.  Always  remember  that 
the  system  uses  a  full  file  descriptor  by  adding  a  default 
if  the  user  does  not  give  a  full  file  descriptor. 
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4 .  Utility  Programs 


The  purpose  of  this  section  is  just  to  expose  the 
various  utility  programs  that  are  available.  In  keeping 
with  the  terms  expressed  in  the  previous  section,  the 
utility  programs  are  User  programs.  This  might  have  been 
confusing  to  one  who  has  just  skimmed  the  operating  system 
reference  manual  /— 19_/f  because  good  descriptions  of  these 
programs  are  contained  there.  The  implication  might  have 
been  that  they  are  part  of  the  operating  system  -  they  are 
not.  The  utility  programs  have  such  a  label  because  they 
exist  to  help  the  user  create  an  executable  program.  First, 
there  is  the  editor  which  is  normally  loaded  and  started  by 
a  CSS  command.  This  will  be  the  most  used  method  for  creat¬ 
ing  any  files,  hereafter  called  source.  (The  other  method 
is  with  the  "BUILD"  command  -  see  /— 19 _7* )  After  creating 
a  file  with  the  editor  a  number  of  language  converters, 
translators,  compilers,  etc.,  are  used  to  get  the  source  in 
a  form  that  can  be  loaded  into  memory  and  then  executed. 

The  language  utility  programs  that  are  supported  are  BASIC, 
FORTRAN,  COBOL,  APAL  (which  is  assembly  language  for  the 
AP-120B) ,  and  an  assemblier  language.  To  build  the  loadable 
module  or  program  the  TAST  ESTABLISHER  TASK  must  be  run. 

This  is  just  another  program  which  is  loaded  like  any  other 
program  which  takes  as  inputs  an  object  program  and  commands 
and  provides  as  output  a  loadable  task  (i.e.  program).  Dis¬ 
cussion  on  the  use  of  these  programs  is  provided  in  Appendix  G. 
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There  are  utility  programs  that  are  useful  for 


keeping  one's  disc  clean  and  backed  up.  The  programs  are 
DISCHECK,  DISCDUMP,  DISCINIT,  C3C0MP ,  BACKUP,  and  OSCOPY. 
DISCHECK  is  used  primarily  when  (1)  the  operating  system 
crashed  while  a  disc  was  marked  on  and  (2)  a  session  with 
the  editor  or  the  execution  of  language  translation  did  not 
come  to  normal  termination.  It  is  used  after  these  occur¬ 
rences,  because  there  will  be  files  that  have  been  "left 
open".  DISCHECK  will  close  them.  DISCDUMP  is  used  to  dump 
files  from  a  disc  to  another  disc,  magnetic  tape  or  the 
printer.  It  can  be  used  to  back  up  a  disc.  DISCINIT  is 
used  to  rename  a  disc  or  completely  clear  the  disc  of  all 
files.  The  clearing  of  the  physically  lowest  fixed  disc  in 
the  SSA  system  is  regularly  done.  It  is  done  to  make  the 
lowest  disc  available  for  temporary  files.  Discs  are  also 
cleared  before  a  compress  is  done.  C3C0MP  is  the  compress 
program.  After  a  period  of  time  free  sectors  on  a  disc  will 
become  scattered.  It  is  more  efficient  to  pack  all  the  free 
sectors  together.  To  use  the  free  spaces  up,  the  programs 
must  be  compressed.  C 3 COMP  will  do  this.  There  are  two 
files  with  the  file  name  BACKUP.  One  is  a  task;  the  other 
is  a  CSS  command.  The  CSS  command  will  backup  one's  disc 
on  another  disc  and  a  magnetic  tape  as  well  as  do  a  compress 
on  itself.  It  is  extremely  useful  to  keep  disc  clean,  com¬ 
pressed,  and  backed  up.  It  is  faster  to  backup  a  disc  on  a 
magnetic  tape  than  it  is  to  copy  selective  files  to  a  tape. 
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The  BACKUP  program  and  its  use  is  adequately  described  in 
/  19_/.  OSCOPY  is  primarily  executed  with  a  CSS  command. 

This  program  is  used  to  transfer  ASCII,  binary  and  es¬ 
tablished  task  (ones  with  the  extension  ".TSK")  files  from 
their  source  to  any  other  file  destination.  To  copy  a 
ASCII  device  such  as  the  printer  will  cause  the  printer  to 
act  on  the  binary  code  which  was  being  sent.  Since  it  wants 
ASCII  code,  the  printer  might  have  passed  wildly  a  whole 
ream  of  paper  before  the  user  realized  the  mistake. 

There  exists  also  a  software  debugger  program  called 
OS/AIDS.  To  use  OS/AIDS  the  object  module  must  be  included 
when  making  a  task.  That  is  to  use  the  debugger  on  a  pro¬ 
gram  called  JOB,  then  the  TET  commands  or  TET  file  must  have 
the  command  "INCLUDE  OSAIDS.OBJ".  OS/AIDS  is  then  stated 
when  the  program  JOB  is  executed.  Certainly  the  normal 
application  is  to  debug  a  program.  There  is  another  appli¬ 
cation  that  is  particularly  useful.  It  is  when  a  new  dev¬ 
eloped  device  is  being  interfaced  to  the  system.  OS/AIDS 
will  permit  one  to  stop  the  program  at  almost  any  point  and 
permit  the  examination  of  any  of  the  memory  locations  and 
registers . 

5 .  Diagnostics 

Diagnostics  are  run  on  a  device  when  the  device  is 
not  operating  correctly.  There  are  diagnostics  for  most 
devices.  Table  V  provides  a  listing  of  the  devices,  location 
of  the  diagnostics  for  the  device,  if  the  operating  system 


78 


TABLE  V 

DIAGNOSTIC  LISTING 


DEVICE 

LOCATION  OF 
DIAGNOSTIC 

OPERATING 

SYSTEM 

DEPENDENT 

DOCUMEN¬ 

TATION 

CPU 

Interdata  Tape 

& 

Disc 

NO 

YES 

MAC 

Interdata  Tape 

& 

Disc 

NO 

YES 

Memory 

Interdata  Tape 

& 

Disc 

NO 

YES 

Logical  Storage 

Unit 

Interdata  Tape 

& 

Disc 

NO 

NO 

Universal  Clock 

Interdata  Tape 

& 

Disc 

NO 

NO 

Ann  Arbor  Terminal 

No  Diagnostic 

— 

— 

Cassettes 

Interdata  Tape 

& 

Disc 

NO 

YES 

Printer 

Interdata  Tape 

& 

Disc 

NO 

YES 

Extended  Selector 
Channel 

Interdata  Tape 

& 

Disc 

NO 

NO 

Magnetic  Tape 

Interdata  Tape 

& 

Disc 

NO 

YES 

Universal  Logic 
Interface 

Interdata  Tape 

& 

Disc 

NO 

YES 

Disc 

Interdata  Tape 

& 

Disc 

NO 

YES 

Current  Loops 

Interdata  Tape 

& 

Disc 

NO 

YES 

Tektronix  Graphics 

Tektronix  Tape 
Cassette,  Disc 

/ 

YES 

YES 

HP9830 

HP  System  Cassette 
Tape 

NO 

YES 

Control  Bus 

Control  Bus  Cassette 
Tape 

NO 

Appendix 

A 

AP-120B 

AP-Tape ,  Disc-MONl 

YES 

NO 

DAU 

DAU  Diagnostic 
Cassette 

YES 

YES 
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must  be  up  to  run  the  diagnostic,  and  if  there  is  documen¬ 
tation  for  the  diagnostic.  Diagnostics  are  simple  to  run. 
The  essence  of  running  diagnostics  is  to  load  the  program, 
start  the  program,  and  compare  the  results.  In  Appendices 
H  through  T  are  the  procedures  to  run  the  Interdata  pro¬ 
vided  diagnostics.  There  are  step  by  step  procedures  to 
load,  start  and  compare  the  diagnostic  process. 

The  Tektronix  graphics  are  run  with  the  operating 
system  by  use  of  the  CSS  command  "RUN  TCSDIAG" .  The  output 
for  the  different  tests  differ  with  those  shown  in  the  Plot 
10  Verification  Routine  Users  Manual,  Release  1,  Tektronix, 
Inc. ,  Beaverton,  Oregon.  Enter  3  when  asked  terminal  type 
and  enter  2  for  buffer  type.  For  character  sec  enter  960, 
15400,  or  30700  for  9.6  K,  154  K,  307  K  band  respectfully. 

For  the  HP  9830  simply  load  the  system  test  tape 
and  follow  instructions  in  the  Model  3 0  Calculator  System 
Test  Instructions  manual. 

To  test  the  control  bus  see  Appendix  A. 

Testing  of  the  DAU  is  done  by  a  series  of  tests 
titled  DAUTEST,  DAUTEST1 ,  and  DAUTEST2 .  These  are  on  M0N7 
and  are  run  by  use  of  the  GO  CSS  command. 

Revision  two  software  has  been  received  from  Float¬ 
ing  Point  Systems.  The  new  tests  for  the  AP-120B  have  not 
been  run  as  of  this  writing.  There  is  no  documentation  for 
the  revision  one  tests  other  than  source  listings. 
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6 .  Specific  Project  Programs 


In  this  development  system  programs  are  continually 
being  created,  revised  and  deleted.  Because  only  eight 
characters  can  be  used  in  naming  files,  and  because  the 
names  are  quite  arbitrary  not  much  about  a  program  can  be 
gleamed  from  the  name  of  the  program.  The  solution  to  this 
problem  does  not  lie  in  reading  previous  thesis,  but  rather 
providing  future  users  one  source  for  all  programs  that  have 
been  considered  useful  for  present  and  future  uses.  This 
one  source  has  been  established.  It  consists  of  a  file 
which  contains  the  listings  of  all  the  general  purpose  pro¬ 
grams  .  BDM  services  at  the  end  of  each  quarter  have  been 
copying  the  unique  files  of  graduating  students  to  a  master 
tape . 

These  listings  will  serve  two  purposes.  First,  they 
will  reduce  the  duplication  of  effort.  For  example,  the 
individual  who  is  trying  to  do  something  and  needs  a  good 
I/O  package  for  graphics,  such  a  package  has  been  made  and 
available.  Communication  with  the  DAU  is  in  fact  done  by  a 
group  of  programs  that  are  in  the  DAU  support  library.  All 
data  acquisition  through  the  DAU  uses  these  programs.  These 
programs  might  be  subprograms  or  subroutines.  The  second 
purpose  these  programs  have  has  more  to  do  with  changing  the 
system.  Insight  can  be  obtained  if  software  is  to  be  re¬ 
placed  by  hardware  or  vice  versa.  The  nature  of  all  the 
programs  in  the  lab  are  either  processing,  interfacing  (con- 
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trol  and  I/O)  or  diagnostic  in  nature.  To  this  date  most 
programs  are  device  independent  except  diagnostics.  Some 
interface  programs  are  written  for  the  control  bus  (SVC  II 
and  KTL  routines).  If,  for  example,  the  interfacing  is  to 
be  changed  by  replacing  a  bus  structure  with  a  micropro¬ 
cessor,  the  essence  of  the  bus  can  be  seen  in  the  interfac¬ 
ing  program.  If  a  different  processor  is  used,  the  algor¬ 
ithm  and  many  modules  of  a  original  program  will  assist  in 
writing  a  new  program.  The  only  changes  that  are  expected 
are  the  called  programs. 

The  specific  project  programs  are  all  operating 
system  dependent  (or  run  on  the  HP  9830  alone) ,  and  written 
in  the  SATCOM  lab.  A  diagnostic  program  exists  for  the  data 
acquisition  unit.  Processing  programs  exist  for  FFT, 
scaling  and  averaging  in  the  AP-120B.  They  are  the  first 
iteration  and  welcome  changes.  I/O  programs  exist  for  plot¬ 
ting  data  on  the  Tektronix.  Interfacing  programs  exist  for 
the  control  bus  and  HP  9830  but  the  HP  9830  has  problems 
with  the  operating  system.  Programs  also  exist  for  inter¬ 
facing  with  panels  Cl,  C2,  C4  and  devices  A25,  A26,  A18, 

A19,  A21,  A22,  A10-A14,  A6-A8 .  See  Figure  5.1  for  SATCOM 
lab  rack  layout. 

The  SVC11  and  KTL  libraries  have  been  provided  by 
BDM,  Documentation  for  these  routines  is  contained  in  the 
listing.  Their  use  and  purpose  will  be  briefly  stated  here. 
The  KTL  routines  perform  I/O  on  the  control  bus.  KTL  is 
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mnemonic  for  control.  The  routines  will  permit  writer,  reads 
status  request,  enable  interrupts,  simulate  interrupt,  re¬ 
turn  from  interrupt,  connect  and  disconnect  to  a  device,  and 
wait  for  task  trap.  All  KTL  routines  are  FORTRAN  callable. 
Table  VI  lists  the  KTL  routines.  The  SVC11  handler  pro¬ 
cesses  the  SVC11  calls  made  in  the  KTL  routines.  It  is  used 
instead  of  the  normal  I/O  calls  for  the  control  bus  devices 
in  order  to  eliminate  the  overhead  of  normal  I/O  calls  which 
might  be  characterized  as  being  a  nuisance  for  devices  which 
do  not  transfer  large  amounts  of  data.  SVC11  incorporates 
INTll  and  other  logic  to  handle  control  bus  device  interrupts 
almost  independently  of  the  I/O  systems. 

The  DAU  Support  (DAUSUP)  Library  was  provided  by 
Lieutenant  Gary  W.  Bohannan.  Documentation  for  these  rou¬ 
tines  are  contained  in  Table  VII.  These  routines  provide 
communication  with  the  data  acquisition  unit  in  the  samy  way 
that  all  other  I/O  is  done.  It  has  been  observed  that  the 
subroutine  DAURUN  should  be  preceded  by  a  command  to  the 
prestart  circuit  in  the  DAU.  This  is  done  by  use  of  the  DAU- 
REG  routine.  A  program  example  is  provided  in  Appendix  U. 

It  has  not  been  determined  that  this  corrective  action  is 
absolutely  necessary.  First  starting  the  prestart  circuit 
and  then  calling  DAURUN  was  a  solution  to  a  problem  that 
occurred  after  the  DAU  had  been  operational  for  about  four 
months.  The  DAU  has  been  run  since  without  the  fix  and  opera 
ted  without  problems.  Nevertheless,  it  is  suggested  /  18_/ 
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TABLE  VI 


KTL  ROUTINES 


Arguments :  IUNIT  -  Integer  number  of  the  device 

IVALUE  n  Integer  number  and  value  sent  or 
received 

VECTOR  -  Address  vector  (lable  in  FORTRAN  Program) 
Vector  =  A' 100 ’  for  FORTRAN  IV 

or  =  NAME  -  External  for  FORTRAN  V 


*KTLWR  (IUNIT,  IVALUE) 

Performs  a  write  operation  to  device  IUNIT 
writing  IVALUE  to  that  device. 

*KTLSIM  (IUNIT,  IVALUE) 

Simulates  an  interupt  to  device  IUNIT,  with 
junk,  IVALUE. 

*KTLRD  (IUNIT,  IVALUE) 

Performs  read  operation  from  device  IUNIT,  stores 
the  read  value  in  IVALUE. 

**KTLON  (IUNIT,  VECTOR) 

**KTLOGG  (IUNIT,  VECTOR) 

Connects  and  disconnects  device  IUNIT  to  a  pro¬ 
gram  and  physically  enables  interrupts. 

KTLST  (IUNIT,  IVALUE) 

Gets  status  from  device  IUNIT. 


KTLWT 


KTLRET 


Puts  the  task  in  a  wait  state  (like  pause) 


Returns  from  Interrupt 
*  function  value  =  SVC11  status 

0  =  Okay 
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TABLE  VI  (con't) 


1  =  illegal  unit  number 
-1  =  device  off  line 
4  =  illegal  value  for  a  write 
**  Function  =  Svc  6  Status 
0  ~  Okay 

Anything  else  see  /  11 J . 

Note  that  Cl,  C2,  C4  panel  buffers  bounce  badly.  Any  new 
devices  that  bounce  as  badly  as  the  panels  and  for  these 
panels  the  programmer  would  be  prudent  to  disconnect  the 
device  for  about  100  ysec  immediately  after  an  interrupt  has 
been  detected.  Then  re-connect  the  device  before  doing  a 
KTLEET . 
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TABLE  VII 


SUBROUTINE  LIBRARY  DAUSUP 


The  following  FORTRAN  callable  routines  are  provided: 

BCDFRQ  (FF) 

SETSYN  (ID,  IR) 

DAUREG  ( IVAL ,  IREG) 

DAURUN  (ICNTL,  ICODE) 

DAUGET  (I ARRAY,  IADDR,  NCOUNT) 

All  routines,  except  BCDFRQ,  require  INTERGER*2  data  ele¬ 
ments  as  arguments.  See  page  27  of  FORTRAN  Ref  Manual 
paragraph  6.2.  This  specifies  16  bit  (2BYTE)  HALFWORDS 
compatible  with  the  DAU  interface. 

NOTE :  You  may  not  use  literal  constants  in  argument  lists, 

these  are,  by  default,  INTEGER*4  values. 

EXAMPLE  1: 


CALL  DAUREG  (4,5)  is  not  correct  form 

EXAMPLE  2: 


correct  form 


IX  =  4 
IJ  =  5 

CALL  DAUREG (IX, I J) 

Subroutine  BCDFRQ  requires  a  REAL  (floating  point)  argument. 

In  order  to  attach  DAUSUP  programs  to  your  main  program,  an 
additional  line  is  required  in  the  TET  sequence.  This  is 
easily  accomplished  by  creating  a  disk  file  (using  the  EDIT 
sequence)  with  the  filename: 

name  .  TET  where  "name"  is  the  same 

as  the  "name"  in  name  .  FTN 

This  .TET  file  should  be  as  follows: 
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TABLE  VII  (con't) 


(Col.  1) 

LOG 

REMOTE 

ESTABLISH  TASK 
MXSPACE  2300 
OPTIONS  F 
GET  600 

INCLUDE  < Includes  Main  Program  and  your  own 

subroutines . 


EDIT  DAUSUP . OBJ 

EDIT  TCSLIB . OBJ 

INCLUDE  APSUP . OBJ 
EDIT  APLIB . OBJ 


<Here  we  sat  to  GET  DAUSUP 
ROUTINES  as  required 

<Optional  -  TEK4014-1 
Plot  10  Programs  if  required 

<Optional  AP120B  programs 


EDIT  FVRTL . OBJ 


< Required  for  all  FORTRAN  Programs 


BUILD  TASK,  name.TSK  <Here  again  "name"  is  same  an  in 

name . FTN 


MAP 

END 

SUBROUTINE  BCDFRQ(FF) 

-  FF  =  SAMPLE  RATE,  IN  HZ,  (FLOATING  POINT) 

-  Subroutine  converts  frequency  datum  to  four  BCD  digits 
plus  Range  Digit  for  compatibility  with  the  SYNTEST 
SM101  FREQUENCY  SYNTHESIZER  used  in  the  DATA  ACQUISI¬ 
TION  UNIT  FOR  SAMPLE  RATE  CONTROL. 

Calls  Subroutine  SYNSET  to  complete  output  to  DAU 
control  Interface  for  Synthesizer  set  up. 

Out  of  range  data  is  reset  to  nearest  limit. 

Language  -  FORTRAN 

SUBROUTINE  SYNSET ( ID , IR) 

-  ID (4)  INTEGER*2  ARRAY- 4FREQ  DIGITS 
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TABLE  VII  (con't) 


-  IR  INTEGER*2  RANGE  DIGIT 

-  Subroutine  completes  BCB  formating  for  SYNTEST  SM101 
Frequency  Synthesizer  and  outputs  to  Data  Acquisition 
RANGE  and  FREQ  registers  to  set  up  SM101  to  sampling 
rate  for  A/D  converters.  No  format  checbing  is  pro¬ 
vided. 

-  MAKES  SVC  calls  to  OS  for  output  via  DAU  driver. 

-  Requires  Logical  Unit  1  set  to  DAU. 

-  Language  -  Common  Assembly  Lang.  (CAL) . 

SUBROUTINE  DAUREG  (IVAL,  IREG) 

-  IVAL  -  INTEGER* 2  DATA  TO  BE  OUTPUT 

-  IREG  -  INTEGER* 2  DAU  INTERFACE  REG  # 

-  Subroutine  outputs  16  bit  Halfword  value  to  DAU 
interface  register  specified  by  IREG. 

-  Makes  SVC  call  to  OS  for  output  via  DAU  driver. 

-  Requires  Logical  Unit  1  to  be  set  to  DAU. 

-  Language  -  Common  Assembly  Language  (CAL) . 

SUBROUTINE  DAURUN  (ICNTL,  ICODE) 

-  ICNTL  -  INTEGER*2  control  code  to  select  A/D  conver¬ 

ter  pair. 

-  ICODE  -  INTEGER* 2  status  code 

=  0  Acquisition  complete 

/  0  Acquisition  incomplete,  DAU  error. 

-  Subroutine  selects  DAU  interface  control  register, 
outputs  ICNTL  code  and  starts  DAU.  On  acquisition 
completion,  DAU  status  is  checked  and  ICODE  is  re¬ 
turned  to  calling  program. 

-  Makes  SVC  call  to  OS  for  I/O  via  DAU  driver. 

-  Requires  Logical  Unit  1  to  be  set  to  DAU. 
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TABLE  VII  (con't) 


-  Language  -  Common  Assembly  Language  (CAL) . 

SUBROUTINE  DAUGET  ( IARRAY ,  IADDR,  NCOUNT) 

-  IARRAY  -  INTEGER* 2  ARRAY  for  receiving  data. 

DIMENSIONED  AT  LEAST  TO  NCOUNT. 

-  IADDR  -  INTEGER* 2  DAU  buffer  memory  start  address 

for  take  out. 

-  NCOUNT  -  INTEGER*2  Total  no.  of  16  bit  halfwords  to 

be  transferred.  Usually  set  to  2*  Acquisi¬ 
tion  count, 

-  Subroutine  outputs  IADDR  to  DAU  Buffer  Memory  Address 
Register  and  NCOUNT+1  to  DAU  Word  Count  Register.  Note 
that  the  actual  transfer  count  is  controlled  by  the 
Selector  Channel  for  DMA  transfer  and  the  DAU  word 
count  may  be  set  to  any  value  larger  than  acquisition 
count  for  this  step. 

The  Control  Register  in  the  DAU  is  then  set  to  in¬ 
dicate  transfer  to  the  7/32  and  a  DMA  transfer  is  set 
up  and  run. 

-  Makes  SVC  calls  to  OS  for  I/O  via  DAU  driver. 

-  Requires  Logical  Unit  1  set  to  DAU. 

-  Language  -  Common  Assembly  Language  (CAL) . 


89 


that  the  prestart  procedures  be  retained  in  any  data  acqui¬ 
sition  program.  These  problems  should  be  considered  in  the 
future  data  acquisition  units  and  corresponding  software. 

AP-120B  programs  are  well  documented  in  the  manuals 
/  2 0  -  24_/  provided  by  Floating  Point  Systems.  To  easily 
use  these  programs  a  CSS  command  has  been  provided.  The  CSS 
command  allocates  the  necessary  files;  starts  the  program 
APAL;  on  completion  of  APAL,  APLINK  is  started;  on  comple¬ 
tion  of  APLINK,  APSIM  is  started.  Once  APSIM  is  terminated 
the  CSS  command  is  cleared.  With  this  CSS  command  one  can 
assemble  the  source  program  into  a  machine  code  for  the 
AP-120B  and  test  it  on  the  simulator  -  all  by  one  command. 

The  HP  9830  primary  function  has  been  control  of 
devices  on  the  IEEE  488  bus.  Programs  have  already  been  pre¬ 
sented  /X2 ,  14 ,  16_/  that  communicate  on  this  bus .  Whatever 
changes  that  come  to  the  bus  there  is  one  potential  stumbling 
block  which  can  be  avoided.  All  devices  on  the  bus  have 
addresses.  Some  of  these  addresses  have  been  set  in  by 
hard  wiring,  others  by  switches.  The  switches  make  it  easy 
to  change  the  addresses.  But  this  should  be  done  with  cau¬ 
tion,  because  the  probability  of  having  one  address  for  two 
devices  is  possible.  Table  VIII  provides  the  current  direc¬ 
tory  for  the  IEEE  488  bus.  Should  these  addresses  change 
and/or  devices  change  the  reaif ications  are  not  only  to 
addressing  conflicts  but  also  to  past  proven  programs.  "If 
it  can  happen  it  will".  Scenario:  the  bus  appears  bad. 
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HP-IB  ADDRESS  DIRECTORY 
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because  an  addressing  conflict  occurred  due  to  a  change  in 
equipment  where  the  change  was  not  known  to  the  programmers. 
A  proven  program  might  then  be  run  as  a  "test" .  The  test 
will  fail.  At  some  time  later  the  addressing  conflict  will 
eventually  be  discovered. 

Some  problems  with  the  HB  IB  exist  and  no  solution 
is  apparent  at  this  time.  First  it  is  not  understood  why 
the  remote  command  (768)  must  be  output  on  the  bus  twice  to 
place  all  the  devices  in  remote.  Sometimes  issuing  the  re¬ 
mote  command  will  work.  But  issuing  it  twice  has  always 
worked  on  all  devices.  To  use  the  "VAL"  statement  to  read 
the  HB  IB  ensures  that  the  "COM"  statement  and  "DIM"  state¬ 
ments  are  well  understood.  If  these  are  not  used  correctly 
the  "VAL"  statement  will  not  pass  the  correct  value.  The 
use  of  all  statements  are  well  covered  in  the  string  vari¬ 
able  ROM  manual  and  operating  manuals  by  Hewlett  Packard 
/25,  26,  27/.  Due  to  the  format  of  the  output  from  the  time 
code  generators  made  by  Systron  Donner  the  output  must  be 
read  in  segmented  strings  and  not  in  one  string  variable. 

The  bus  follows  strict  instructions.  It  is  not  sufficient 
to  enable  a  device  in  an  output  mode.  The  device  must  also 
be  told  to  "talk"  as  in  the  case  of  the  digital  volt  meter 
(HP  3490A) . 
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V.  CONCLUSION 


The  software  portions  of  the  SATCOM  Satellite  Signal 
Analyzer  documented  in  this  thesis  have  been  developed,  and 
tested  successfully.  Further  software  modifications  are 
recommended  a)  to  increase  the  throughput  of  the  system, 
b)  to  allow  windowing,  and  c)  to  allow  greater  flexibility 
in  the  output. 
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APPENDIX  A 


CONTROL  BUS  AND  CONTROL  BOARD  OPTION  'A' 

DIAGNOSTIC  MANUAL 

1.  Control  Board  Option  'A'  Test  Program 

1.1  Related  Documents: 

Test  Program 

Universal  Logic  Interface  Instruction  Manual  29-311 

1.2  Test  Programs  to  be  run  prior  to  loading  tnis  test: 

Series  32  Basic  Test  06-158 

Series  32  Processor  Test 

Part  1  06-154 

Part  2  06-155 

Part  3  06-178 

Series  32  Memory  Test  06-156 

TTY  Basic  Confidence  Test  06-004 

2.  Purpose  of  Test 

2.1  General  Test  Information 

The  Control  Board  Option  'A'  Test  Program  is  used  to 
check  the  proper  operation  of  the  Control  Board  and  Option 
'A'  board  (CBOA) .  Byte  data  transfers  are  exercised.  Output 
commands.  Status  Request  and  the  interrupt  mechanism  are  also 
exercised . 

2.2  Test  Description 

The  program  checks  the  byte  mode  by  writing  a  shift¬ 
ing  data  pattern  that  is  alternately  a  One  (1)  in  a  field  of 
Zeros  (0)  and  a  Zero  in  a  field  on  Ones.  The  data  written 
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is  read  back  from  the  module  and  compared  to  the  original 
pattern.  The  same  pattern  is  used  to  test  the  status  return 
and  command  latches.  After  data  transfers  are  complete,  the 
interrupt  mechanism  is  tested.  Output  commands  are  used  to 
disarm,  arm  and  enable  the  CBOA  and  generate  an  interrupt. 

The  device  number  on  acknowledge  is  also  checked. 

3 .  Minimum  Hardware  Required 

The  following  is  a  list  of  hardware  necessary  to  perform 
this  test: 

1.  The  7/32  Processor 

2 .  8KB  of  Memory 

3.  Console  Input/Output  Device  (See  Appendix  B)  Teletype 
or  CRT 

4 .  Device  under  test  -  CBOA 

5.  Option  Board  'A'  Test  Connector 

4.  Requirements  of  Machine  Under  Test 

4.1  Test  Configuration 

The  option  board  'A'  test  connector  must  be  attached 
on  the  output  of  option  board  A.  The  wiring  pin  diagram  is 
described  in  Appendix  E. 

4.2  Device  Address 

If  the  control  board  address  is  other  than  X'8F' 
enter  the  device  address  by  using  the  DEVADR  option. 

4.3  Console  Device 

If  the  console  device  is  other  than  a  teletype  with 
device  address  of  X'02'  see  Appendix  B  for  program  modification 
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Loading  Procedures 

5.1  Normal  Loading  Procedures 

1.  Manually  enter  the  X'50'  sequence  shown  below: 


Location 


Contents 


X'  30 ' 

X'  0000' 

X'  32  ' 

X'0000' 

X '  3  4  ' 

X'  0000 ' 

X'  36  ' 

X'  0050 ' 

X'  50  ' 

X ' D500 ' 

X '  52  ' 

X' 00CF' 

X'  54  ' 

X' 4300 ' 

X'  56' 

X' 0080 ' 

X'  78  ' 

X' 45A1' 

X 

00 

X' 55A1' 

For  CAS 1 
For  CAS 2 

2.  Place  cassette  in  CASl  or  CAS2;  Power  ON;  Rewind 
to  load  point;  Switch  to  ON  line 

3.  Execute  at  address  X'30'  (DTA,  30,  ADR,  RUN) 

The  boot  loader  will  load  first 

Hit  RUN  -  File  mark  passes  by 
Hit  RUN  -  Second  file  mark  passes  by 
Hit  RUN  -  Program  loads  -  All  zeros  come  up  on 
display.  If  not,  rewind  tape;  start 
this  step  again. 

4.  Refer  to  Appendix  B  and  set  up  the  addresses 
for  Console  I/O  Device  if  other  than  teletype. 

5.  Address  location  X'AOO'  DTA,  A00,  ADR 

6.  START  program  execution.  Observe  that  the 
following  title  is  printed  on  the  console  device: 
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CONTROL  BOARD  &  OPT  A  TEST 


6.  Operating  Procedures 

6.1  Normal  Testing 

1.  Ascertain  that  OPTION  BOARD  A  TEST  CONNECTOR  is 
properly  plugged  in. 

2.  When  an  asterisk  (*)  is  printed  enter  the  de¬ 
sired  options  via  the  console  device.  Refer  to  Appendix  C 
for  the  option  explanation. 

3.  Enter  the  RUN  command  via  the  console  device. 

4.  If  no  errors  are  detected,  characters  "NO  ERRORS" 
are  printed  almost  immediately  after  execution.  Should  an 
error  occur,  refer  to  section  6.2  for  the  appropriate  action. 

5.  To  re-execute  the  test,  enter  the  RUN  command 
via  the  console  device. 

6.2  Error  Procedures 

If  an- error  is  encountered,  the  Processor  loops  on 
the  failure,  the  error  number  is  displayed  on  Dl  of  the 
Processor  Display  Panel,  and  the  error  number  is  printed  on 
the  console  device.  Refer  to  Appendix  D  for  the  meaning  of 
the  error  number . 
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APPENDIX  B 


CONSOLE  DEVICE  DEFINITION 

1.  The  halfword  labelled  I/O  (see  the  listing)  has  the  de¬ 
fault  value  for  Teletype  (address  X'02')  as  the  console  de¬ 
vice.  If  the  configuration  is  different,  the  test  program 
must  be  changed  as  follows : 

0  78  15 

T/  Console  Device 

'  Identifier 


Console  Device  Explanation 

Identifier 

X’01'  GDT/CRT  on  PASLA/PALM  Interface, 

strapped  for  FDX  and  the  highest 
baud  rate 


X ' 02 '  TTY  on  TTY  Interface 

GDT/CRT  on  Current  Loop  Inter¬ 
face 


0 , X ' 03-X ' FF ' 


Reserved.  The  program  defaults 
it  to  2. 


2.  The  teletype  or  Current  Loop  Interface,  if  used,  should 
be  strapped  for  the  device  address  of  X'02'.  If  it  is 
different,  the  halfword  labelled  TTYADR  (see  the  listing) 
must  be  changed  accordingly. 

3.  The  GDT  (Graphic  Display  Terminal)  or  CRT;  is  used  on 
PASLA  Interface,  should  be  strapped  for  the  device  address 
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of  X'10'  and  X'll'  for  receiving  and  transmitting  side  res¬ 
pectively.  If  it  is  different,  the  halfword  labelled  CRTADR 
(see  the  listing)  must  be  changed  accordingly. 
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APPENDIX  C 


Option 

DEVADR 

INTRPT 


OPTION  TABLE 


Default  Value 


X'  8F' 


Description 

Specifies  the  device  ad¬ 
dress  of  the  Control  Board 


X'  0 


Specifies  whether  the  CBOA 
interrupts  will  be  tested. 


0  =  interrupts  are  tested 
1  =  interrupts  are  not 
tested. 
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APPENDIX  D 


FAILURE  NUMBER  DEFINITION 


NUMBER  FAILURE 


There  is  no  error  01 


02 

Byte  Mode  of  Byte  to  Half¬ 
word  Mode  Data  XFER 

R4  =  Data  Written, 

R6  =  Data  Read 

03 

Sense  Status  Bits  (0:3) 

R4  (12:15)  =  Test  Data 
R6  (12:15)  =  Error  Bits 

04 

Output  Command  Bits  (4:7)  or 
Sense  Status  Bits  (4:7) 

R4  =  Output  Command 

R6  =  Returned  Status 

05 

Unsolicited  Interrupt 

06 

No  Interrupt 

07 

Wrong  Device  Number  Re¬ 
turned  on  Acknowledge 

R4  =  Received  Device 
Number 

08 

Acknowledge  Does  Not  Reset 
Attention 

Interrupt  Level  =  X  Where  X  =  Register  Set 

that  the  Interrupt  Vec¬ 
tored  into. 
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APPENDIX  E 


OPTION  BOARD  A  TEST  CONNECTOR 


Signal  to  Signal  Pin  to  Pin 


SIN 

020 

DOT  060 

26 

16 

SIN 

0  30 

DOT  070 

8 

34 

SIN 

040 

COT  040 

27 

15 

SIN 

050 

COT  050 

9 

33 

SIN 

060 

COT  060 

28 

14 

SIN 

070 

COT  070 

10 

32 

DIN 

000 

DOT  000 

7 

19 

DIN 

010 

DOT  010 

25 

37 

DIN 

020 

DOT  020 

6 

18 

DIN 

030 

DOT  030 

24 

36 

DIN 

040 

DOT  040 

5 

17 

DIN 

050 

DOT  050 

23 

35 

DIN 

060 

DOT  060 

4 

16 

DIN 

070 

DON  070 

22 

34 

SATNO 

COT  040 

3 

15 
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APPENDIX  F 


POWERING  UP  THE  SSA 


A.  OBJECTIVE 

The  objective  of  this  appendix  is  to  provide  procedures 
for  powering  up  the  host  computer,  Interdata  7/32,  the  disc 
drives,  and  other  peripherals.  Also  included  are  the  steps 
to  be  followed  to  boot  load  an  operating  system. 

B.  CONDITIONS 

In  following  these  procedures  there  are  only  two  de¬ 
cisions  that  must  be  made.  They  are: 

1)  Is  the  computer  up  with  a  good  operating  system? 

2)  Which  peripherals  are  needed? 

The  condition  of  the  computer  being  up  with  a  good  operating 
system  can  be  recognized  by  either  all  zeros  in  the  hexa¬ 
decimal  display  or  with  date  and  time  displayed  in  the  hexa¬ 
decimal.  The  date  will  show  the  day  and  month  using  two 
characters  each  -  the  order  might  be  reversed  depending  on 
the  operating  system.  But  the  time  in  hours  and  minutes  is 
shown  always  in  the  last  (right  most)  four  characters.  If 
the  display  has  anything  else  it  does  not  have  an  operating 
system  in  it. 

Examples : 

bDDMMHHmm  -  Good  operating  system 
bMIlDDHHmm  -  Good  operating  system 
bCODEnnn  -  Crash  code  of  nnn  -  bad  system 
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000000000  -  Good  operating  system 
C00000000  -  Good  operating  system 

where 

b  =  blank 
D  =  day 
M  =  month 
H  =  hour 
m  =  minute 
n  =  number 
CODE  =  CODE 

C.  PROCEDURES  -  POWER  UP 

1-  Computer  up,  with  good  operating  system  (lights 
across  front  display  either  the  date  and  time,  or  all  zeros), 
if  not  go  to  2. 

a.  Turn  main  power  switch  to  console  table  ON  (Phase 
C,  Branch  4,  also  other  main  power  switches  for  other  peri¬ 
pherals) 

b.  Turn  Super  Bee  console  ON  (switch  in  back  of 
console,  lower  right,  facing  the  back) 


1. 

Push 

"RESET" 

2. 

Push 

"CLEAR" 

3. 

Push 

"ONLINE" 

on  the  keyboard 

Discs 

1. 

Turn 

power  ON 

(one  or 

both  drives) 

2. 

Wait 

for  "LOAD 

"  light 

3. 

Insert  or  remove  disc 

pack 

4. 

Close 

:  cover 
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5.  If  cartridge  is  loaded,  push  "RUN" 

6.  Disc  is  ready  to  be  marked  "ON"  in  the 
operating  system  when  the  "READY"  light  is  lighted.  Note 
to  operate  a  fixed  disc  a  removable  disc  must  be  loaded. 

d.  Teletype 

1.  Turn  switch  to  "ON  LINE" 

e.  Printer 

1.  "ON" 

2.  "RUN" 

f.  Tektronix 

1.  "ON"  -  lower  right  on  stand 

2.  After  tube  blooms,  "RESET" 

Only  turn  on  those  peripherals  needed  for  a  given 

session 

2.  Computer  down,  unreliable  operating  system  (lights 
across  front  off,  or  displaying  an  error  code) 

a.  Turn  computer  power  ON,  phase  main  switch  (first 

switch) 

b.  Turn  console  table  power  switch  ON,  Phase  C, 

Branch  4 

c.  Turn  Super  Bee  ON  (switch  in  back,  lower  right  - 
facing  back) 

1.  Push  "RESET" 

2.  Push  "CLEAR" 

3.  Push  "ONLINE"  on  the  keyboard 
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d.  Disc 


1.  Turn  power  ON 

2.  Wait  for  "LOAD"  light 

3.  Select  a  disc  pack  that  was  not  marked  "ON" 
at  crash  time,  and  that  has  a  copy  of  the  operating  system 
that  one  wants.  It  is  possible  that  the  system  has  crashed 
while  a  disc  was  in  the  drive  or  while  a  disc  was  not  in  the 
drive.  The  significance  is  that  the  boot  loader  will  only 
get  a  operting  system  off  of  a  disc  that  was  not  marked  "on" 
when  the  crash  occurred.  All  discs  must  be  marked  "off"  be¬ 
fore  removing  so  that  the  system  file  manager  closes  all  files. 
A  crash  or  power  failure  could  occur  or  the  user  could  take 
his  disc  out  before  the  disc  was  marked  off.  This  would  make 
it  impossible  to  load  a  operating  system  from  that  disc  until 

a  disc  check  utility  program  was  executed  (DISCHECK) .  With 
the  exception  of  the  diagnostic  disc  pack  and  the  disc  pack 
titled  "MON  1"  (for  Monterey  number  1)  all  discs  have  operat¬ 
ing  systems  on  them.  They  will  have  an  extension  "-.001". 

4.  Insert  pack;  close  cover. 

5.  Make  sure  all  switches  on  the  Loader  Storage 
Unit  are  in  the  OFF  position. 

6.  Make  sure  there  is  a  cartridge  in  the  drive 
you  are  using  then  switch  to  "RUN". 

e.  Computer 

1.  Turn  key  to  "ON" 

2.  Make  sure  "WAIT"  is  lit,  if  not  press  INI". 
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If  "WAIT"  does  not  come  back  on  look  at  console  screen, 
follow  instructions  if  any.  Then  go  to  C. 15.  If  nothing 
intelligible  comes  up  on  the  screen  attempt  to  continue  at 
C . 3  "DTA". 


3  . 

DTA 

4. 

7 

5. 

8 

6. 

ADD 

"78"  appears  at  right  in 

display 

7. 

RD 

"7A"  is  displayed  on  the 

left  on 

lights 

007A 

XXXX 

=  next  address 

next 

address  contents  of  location  "78" 

8.  RD  "1C"  is  displayed  on  the  left,  one 

of  four  codes  is  displayed  on  the 
right,  as  the  contents  of  location 
"  7A"  : 

* 

C633  Removable  upper  cartridge 
C732  Fixed  upper  disc 
D633  Removable  lower  cartridge 
D732  Fixed  lower  disc 

9.  If  the  code  displayed  is  not  the  one  for  the 
"READY"  disc  pack  with  the  operating  system  on  it,  the  code 
must  be  changed.  For  example,  if  you  were  going  to  take 
the  operating  system  off  of  the  lower  removable  cartridge: 
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DTA 


a . 


b.  7 

c .  A 

d.  ADD 

e .  DTA 

f.  D  Code  for  removable  lower  car¬ 

tridge 

g.  6 

h.  3 

i.  3 

j  .  WRT 

Check  for  writing  correctly  to  "7A" 

a .  DTA 

b.  7 


C .  A 

d.  ADD 

e.  RD 


7C  D633 


10 .  RD  7E 


B6F1 


11.  RD 


location  "7E"  contains 
the  extension  number. 


80  0001  (.001) 


12.  LSU,  switch  ON 

13.  Press  "INI",  listen  for  the  disc  to  start  up 

14.  Look  at  Super  Bee,  "OS32MT03-01" 
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15.  Turn  LSU  switch  OFF  again 

16.  Switch  INTERDATA  key  from  ON  to  LOCK 

D.  PROCEDURES  -  POWER  DOWN 

1.  Type  DAM.  (Display  Map)  Note  if  there  are  any  tasks 
resident  or  running. 

2.  If  tasks  are  running  stop  them  by  typing 

T  XXXX  where  XXXX  is  the  name  of  the  task  - 

(Set  task  to  XXXX) 

CAN  cancels  the  task  -  and  removes  from 

memory  if  not  resident 

3.  If  tasks  are  not  running  but  resident  remove  them 
from  memory  by  typing 

T  XXXX  same  as  in  D.2 

OPT  NON  (option  non-resident) 

CAN  cancel  and  removes  from  memory 

4.  Type  DAD  (display  devices) 

5.  Mark  all  discs  off.  i.e.  MAAD1:,  OFF  (updates  disc 
directory) 

6.  Discs 

a.  Press  Run  -  Load  switches  to  LOAD 

b.  Wait  for  LOAD  light 

c.  Take  out  cartridge 

d.  Power  OFF 

7 .  Super  Bee 

a.  Press  RESET 

b.  Press  CLEAR 
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c.  Switch  power  OFF 

8.  Printer 

a.  STOP 

b.  OFF 

9.  TEKTRONIX  4014-1  and  4631 

a.  Power  OFF  on  4631  (HARDCOPY  UNIT) 

b.  "RESET  PAGE"  on  4014-1 

c.  Power  OFF  (on  pedestal) 

10.  ANN -ARBOR 

a.  Power  OFF  logic  unit  (below  right  console  table) 

b.  Power  OFF  on  video  CRT 

11.  Computer  is  usually  left  on.  If  it  is  turned  off  a 
cold  start  will  usually  be  needed  to  bring  it  up  again.  To 
turn  it  off,  key  to  OFF. 

12.  Wall  power 

a.  Phase  C,  branch  4  main:  OFF(center  table), 

Phase  A  as  appropriate. 

b.  IF  Computer  key  is  OFF  and  AP-120B  is  OFF,  then 
Phase  B  main  OFF.  (Usually  leave  ON.) 

"A"  means  one  space;  " (CR) "  means  carriage  return. 
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APPENDIX  G 


CREATING,  COMPILING,  AND  RUNNING 
A  FORTRAN  PROGRAM 


1.  CREATING  A  PROGRAM 


Programs  are  written  using  the  utility  program  EDIT32. 
This  program  can  be  run  on  many  discs  by  typing  the  letter 
"E"  or  "EDIT32".  Before  typing  to  run  the  EDIT  32  program, 
the  following  procedure  should  be  followed: 

a.  VA  xxxx  to  set  the  system  volume,  where  xxxx  is  the 
4  character  mnemonic  for  the  disc  pack.  Then  mark  the  drive 
containing  that  pack  ON. 


b.  Make  sure  that  the  system  volume  has  a  copy  of  the 
Command  Substitution  program  E.CSS  or  EDIT32.CSS  on  it,  if 


not,  change  volumes : 

1.  DAF,  -  .CSS 

2.  DAF,  -.CSS,  TTY: 

3.  If  E.CSS  or 
EDIT32 . CSS 

(a)  MARK  D3: ,  ON 

(b)  VAM0N4 : 

To  run  the  Editor: 


Display  all  files  on  the  sys¬ 
tem  volume  with  extension 
.CSS 

Display  files  of  extension 
type  .CSS  on  the  teletype 
(make  sure  teletype  is  ON 
LINE) 

does  not  show  up  on  the  list- 
system  volume  to  another  disk 
pack.  That  is,  suppose  the 
lower  cartridge,  names  M0N4:, 
had  a  copy  on  it,  then: 

Physical  Location 

Volume  =  MON 4 


Read  Reference  Manual  /  19  /. 
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2.  COMPILING  A  FORTRAN  PROGRAM 


See  "Creating  a  Program"  to  store  the  source  (human- 
readable  form)  program  on  the  disk.  For  the  purpose  of  this 
discussion,  assume  the  FORTRAN  program  is  NEWPROG.FTN. 

First  make  sure  the  printer  is  on,  use  the  CSS  program. 
FORT, CSS  to  compile,  assemble,  and  establish  the  program  as 
a  task. 

Example:  FORT  NEW  PROG 

(Extension  Type  . FTN  is  assumed) 

The  .CSS  file  FORT, CSS  uses  a  TET  (Task  Establisher)  file 
to  actually  set  up  the  task,  and  to  determine  which,  if  any, 
libraries  should  be  searched  to  resolve  external  references 
in  the  source  program.  If  a  file  of  the  name  NEWPROG.TET 
exists  on  the  system  volume,  FORT, CSS  will  use  it  to  deter¬ 
mine  the  necessary  procedure  to  establish  the  task.  If  not, 
it  uses  its  own  standard  version  TET  program,  which,  among 
other  things,  only  searches  the  FORTRAN  Runtime  libaray  to 
resolve  external  references.  This  means  that  if  the  user 
references  any  other  programs  (already  in  object  form) ,  one 
must  write  a  TET  file  to  tell  the  system  where  it  can  find 
these  mysterious  programs.  (Example:  to  run  the  Tektronix 
Terminal  Control  System,  the  user's  program  references  must 
be  resolved  against  the  Tektronix  library  and  the  FORTRAN 
Run  Time  Libaray . ) 

Upon  successful  completion  of  the  FORT. CSS  commands,  3 
completion  codes  of  zero  should  be  returned  to  the  operator. 
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one  for  the  FORTRAN  Compiler,  one  for  the  Assembler  and  one 
for  the  Task  establisher.  If  all  of  these  Completion  Codes 
are  zero,  and  if  the  printer  man  shows  no  undefined  terms, 
the  task  is  ready  to  be  loaded.  If  the  return  codes  are 
other  than  zero,  there  are  errors  in  the  program.  The  task 
must  be  cancelled:  CAN,  and  the  listing  must  be  examined 
to  determine  where  the  problems  are.  Usually  the  source 
program  will  have  to  be  corrected.  If  undefined  terms 
appear  in  the  printer  map,  it  means  that  the  Task  Establisher 
was  unable  to  find  all  of  the  programs  and/or  subroutines 
that  the  user  required,  in  the  libraries  given  in  the  TET 
program  (either  user  written  or  system  default) .  One  must 
ascertain  where  those  programs  may  be  found,  and  include  or 
edit  them  in  the  appropriate  TET  routine,  as  described 
below. 

If  no  subroutines  beyond  the  standard  FORTRAN  RUN  TIME 

LIBRARY  are  required,  then  no  further  action  is  required. 

If,  however,  AP-120B  subroutines,  PLOT  10  subroutines,  etc., 

then  (a  .TET  file)  must  be  created  as  follows  using  the  EDIT 

sequence  (or  the  OS  'BUILD'  command.  Example  follows: 

Filename  =  name.  TET  where  "name"  is  the  same  as  the 

"name"  in  name.  FTN 

This  .TET  file  should  be  as  follows 

(Col .  1) 

+ 

LOG 

REMOTE 
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ESTABLISH  TASK 


MXSPACE  2800 
OPTIONS  F 
GET  600 
INCLUDE 

EDIT  DAUSUP . OBJ 

EDIT  TCSLIB . OBJ 

INCLUDE  APSUP . OBJ 
EDIT  APLIB . OBJ 

EDIT  FVRTL. OBJ 

BUILD  TASK,  name.  TSK 


<  Includes  Main  Program  and 
your  own  subroutines . 

<  Optional  -  for  DAU  support 
programs,  if  required. 

<  Optional  -  TEK  4014-1  Plot 
10  Programs  if  required. 

<  Optional  AP-120B  programs 
if  required. 

<  Required  for  all  FORTRAN 
programs 

<  Here  again  "name"  is  the  same 
as  in  name.  FTN. 


MAP 

END 

The  "EDIT  FVRTL. OBJ"  line  must  immediately  precede  the 
"BUILD  TASK"  line. 

3.  RUNNING  A  PROGRAM 

If  a  program  has  only  logical  units  5  and  6  (READ ( 5 , -) , 
WRITE  (6,-)  )  required  with  5  assigned  to  CON:  (Super  Bee 

KYBD  and  CRT)  and  6  assigned  to  PR:  (line  printer) ,  then, 

assuming  the  FORT  step  described  previously  was  successful, 
proceed  to  run  your  program  with  the  RUN. CSS  command. 

EXAMPLE:  RUN  NEWPROG 

If  other  devices  are  required,  such  as  the  TEK  4014  or 
AP-120B,  then  a  .ASN  assignment  file  should  be  built  in  the 
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same  way  as  the  .TET  file  using  the  editor. 

This  file  should  be  as  follows: 

ASSIGN  1,  DAU:  <  Required  if  DAU  support  routines  are 

used . 

ASIGN  7,  GDT:  <  Required  if  PLOT  10  routines  are  used 

for  TEK  4014-1. 

ASSIGN  10,  APX:  <  Required  if  AP-120B  routines  are  used. 

ASSIGN  12,  APR: 

(Other  assignment  statements  as  required  for  the  READ,  WRITE 
statements  in  your  program.  See  OS/32MT  Reference  Manual  for 
use  of  "Allocate"  and  "Assign"  commands  for  use  with  disc 
files,  as  required.) 

$EXIT  <  Required . 

After  this  file  has  been  built  you  may  proceed  with  the  RUN 
command  as  described. 

If  both  the  .TET  and  .ASN  files  exist,  you  may  combine  the 
FORT  and  RUN  steps  with  FORTCLG . 

EXAMPLE :  FORTCLG  NEWPROG 

4.  MISCELLANEOUS  OF  FORTRAN  COMPILATION  AND  ASSEMBLY 

a.  This  FORTRAN  "Compiler"  translates  source  code  to 
objective  code.  It  translates  it  to  assembler.  Then  the 
assembler  (CAL,  for  Common,  Assembler,  Language)  translates 
it  to  object  form. 

One  must  become  familiar  with  the  idea  that  programs 
use  other  programs  as  input.  This  is  how  a  (real)  FORTRAN 
compiler  works.  When  we  write  a  FORTRAN  program,  it  becomes 
data  for  the  FORTRAN  compiler  (which  is  merely  a  hugh  program. 
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written  in  any  language)  which  changes  the  characters  input 
into  other  characters,  which  just  happen  to  be  valid  machine 
code,  so  that  if  a  computer  programmer  should  by  some  chance 
try  to  execute  these  characters,  they  would  do  roughly  what 
the  original  programmer  had  intended.  When  we  write  the  FOR¬ 
TRAN  statement,  I  -  1,  the  compiler  changes  it  to  machine 
instructions  to: 

1.  Set  aside  a  table  of  variable  references. 

2.  Insert  "I"  as  the  name  of  a  variable. 

/ 

3.  Assign  it  a  unique  storage  location. 

4.  Store  the  value  "1"  in  this  location. 

The  output  of  this  FORTRAN  compiler  will  be  a  machine  pro¬ 
gram,  it  can  be  loaded  into  memory  and  executed.  TET,  CUP, 
CAL,  etc.,  are  all  programs  that  use  other  programs  as  input. 

b.  Definition:  Library  -  A  series  of  objective  programs 
starting  with  a  label,  divided  by  labels,  and  ending  with  a 
label  of  "ENDVOL".  Purpose  of  a  Libaray  -  To  resolve  ex¬ 
ternal  references  of  some  main  program  before  trying  to 
execute  it.  EX  -  Main  routine  calls  SUBROUTINE  A  -  A  calls 
B,  B  calls  C.  These  routines  are  order  ABC  in  the  library. 

If  ordered  ACB,  then  A  would  link  to  our  main  routine.  But 
since  C  was  not  called  by  A  it  will  not  be  linked.  A  called 
B,  link  it  now,  at  the  end  of  the  file,  and  B  needs  C,  but 
there  is  no  C. 

c.  Always  delete  the  old  .TSK  file  prior  to  a  new  FORT 
step . 


116 


d.  Disc  space  is  limited,  please  delete  old  files  not 
in  use. 

e.  Local  CRT  Driver  was  modified  December  1977  to  change 

control  characters.  Character  '#'  (X *  23 * )  and  (under¬ 

score)  (X'5F')  are  now  valid  printing  characters.  The  function 
of  line  delete  is  provided  by  'control  X'  (X *  08  * )  and  the 
character  delete  (backspace)  by  'Control  H'  (X'18').  This 
change  was  required  to  permit  the  full  range  of  Graphics  In¬ 
put  characters  of  the  TEKTRONIX  4014-1. 

Devices  affected: 

GDT :  TEKTRONIX  4014-1 

CON :  Super  Bee  KYBD/Video  Display 

For  TTY:  '  '  is  character  delete 

' #  '  is  line  delete 

f.  When  writing  an  interactive  program,  that  is,  a 
program  that  actually  waits  for  the  user  to  supply  data,  via 
the  Console's  Teletype,  etc.,  be  sure  to  include  a  write 
preceding  every  read,  to  tell  the  user  what  is  expected. 

Example : 

Write  (6,  10) 

10  Format  ('enter  frequency  in  Hz,  Format 
F8 . 1 ' ) 

Read  (5,  20)  •  Frequency 

20  Format  (F8.1) 

Without  this  write,  the  computer  merely  stops,  waiting 
for  input  of  "Freq."  without  telling  the  person  at  the  con¬ 
sole  what  it  is  waiting  for. 
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APPENDIX  H 


LOADING  INTERDATA  PROVIDED  DIAGNOSTIC 


These  diagnostics  are  on  paper  tape,  disc  and  magnetic 
tape.  The  primary  references  for  these  diagnostics  are  the 
Multi-Media  Diagnostic  Loader  (32  Bit) ,  Publication  I/B06- 
176F02,  Interdata,  Inc.,  April  1975,  and  the  individual  test 
program  manual.  This  system  has  the  ability  to  load  diagnos¬ 
tics  from  paper  tape,  the  magnetic  tape  and  the  disc. 

Loading  via  paper  tape  will  not  be  covered.  Loading  from 
the  disc  is  faster  than  loading  from  the  magnetic  tape.  The 
sequence  follows. 


1.  Loading  Diagnostic  Programs  From  Disc 

a.  Place  Diagnostic  Magnetic  Tape  on  the  drive. 

b.  Power  it  up  and  load  the  tape. 

c.  Place  diagnostic  disc  in  upper  drive. 

d.  On  the  hexadecimal  display,  enter  the  following: 


DTA 

78 

ADR 

DTA 

(95A1 
(4  5A1 
(55A1 
WRT 
C600 
WRT 
0001 
WRT 
DTA 
30 
DTA 
WRT 
DTA 
WRT 


if  the  left  cassette  drive  is  being  used) 
if  the  right  cassette  drive  is  being  used) 

(D600  if  disc  is  going  to  be  in  lower  drive) 


to  zero  30,  31 
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DTA 

WRT 

DTA 

to 

zero  32, 

33 

WRT 

DTA 

to 

zero  34, 

35 

50 

WRT 

DTA 

50 

ADR 
DAT 
D500 
WRT 
DTA 
00CF 
WRT  DTA 
4300 
WRT 
DTA 
0080 
WRT 
DTA 

30 

ADR 

DTA 

RUN 

e.  Observe  "FFFF"  in  the  right  most  section  of  the 
display.  If  this  is  not  present,  retry  the  process  again. 

If  it  continues  to  fail,  go  to  the  primary  reference  and  get 
help ! 


f.  If  you  had  a  good  load  "FFFF"  will  be  present. 
This  means  you  may  now  use  this  program  to  load  the  diagnos¬ 
tics  on  the  disc  pack  labeled  diagnostic. 

To  restart  this  program,  which  must  be  done  every 

time  you  want  a  different  diagnostic,  first  attempt  the 

following : 

DTA 

6000 

ADR 

RUN 
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If  "FFFF"  comes  up  again  you  are  in  luck.  If  it  does  not, 
reload  the  Multi-Media  loader  by  going  to  C. 
g.  To  load  the  diagnostic  push: 


DTA 

XXXX 

RUN 


Where  XXXX  is  the  sequence  number  to  the  diagnostic  you  de 
sire  to  run  as  shown  in  Table  IX. 


2.  Loading  Diagnostics  From  Magnetic  Tape 


a.  Place  magnetic  tape  on  the  drive. 

b.  Power  drive  up  and  load  the  tape. 

c.  On  the  hexadecimal  display  enter  the  following 


DTA 

30 

ADR 

DTA 

WRT 

DTA 

WRT 

DTA 

50 

WRT 

DTA 

50 

ADR 

DTA 

D500 

WRT 

DTA 

00CF 

WRT 

DTA 

4300 

WRT 

DTA 

0800 

WRT 

DTA 

78 

ADR 

DTA 


to 

zero 

30, 

31 

to 

zero 

34, 

35 

to 

load 

address  36  with  a  "50" 

120 


95A1 

WRT 

DTA 

WRT 

DTA 

WRT 

DTA 

1 

WRT 

DTA 

3? 

ADR 

DTA 

RUN 


d.  Same  as  l.d 

e.  Same  as  l.e  except  now  you  are  going  to  get  the 
diagnostics  off  of  the  tape. 

f.  Same  as  l.d 
a.  Same  as  l.d 
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TABLE  IX 


DIAGNOSTIC  LISTINGS 


SEG  # 

06-  # 

REV. 

NAPE 

LOW 

001 

176 

00 

F01  MULTI  MEDIA  DI.  LDR.  16BIT 

04000 

002 

176 

00 

F02  MULTI  MEDIA  DI.  LDR.  32BIT 

06000 

003 

177 

00 

F01  MULTI  MEDIA  DI.  GEM .  16BIT 

05000 

004 

177 

00 

F02  MULTI  MEDIA  DI.  GEN.  32BIT 

07000 

010 

003 

08 

MEMORY  TEST  PART  1 

01000 

01  1 

003 

08 

MEMORY  TEST  PART  2 

00080 

012 

003 

08 

MEMORY  TEST  PART  3 

00080 

013 

106 

06 

PROCESSOR  TEST  PART  1 

002DO 

014 

106 

06 

PROCESSOR  TEST  PART  2 

002  DO 

015 

128 

01 

MODEL  50  PROCFceno  JEST 

00080 

016 

135 

01 

MEMORY  PROTECT  TEST 

00080 

017 

143 

00 

MOS  MEMORY  HOLD  TEST 

00080 

018 

1  44 

00 

MOS  PARITY  INITIALIZE  TEST 

00080 

019 

158 

00 

SERIES  32  BASIC  TEST 

00080 

01  A 

153 

00 

MODEL  7/32  HW  PROCESSOR  TEST 

OOAOO 

0  IB 

154 

02 

SERIES  32  PROCESSOR  TEST  PARTI 

OOAOO 

C1C 

155 

01 

SERIES  32.  PROCESSOR  TEST  °ART2 

OOAOO 

0  1  D 

156 

02 

F01  SER.  32  MEMORY  TEST  PART  1 

02000 

0  1  E 

156 

02 

F02  SER.  32  MEMORY  TEST  PART  2 

OOAOO 

OIF 

156 

02 

F03  SER.  32  MEMORY  TEST  PART  3 

OOAOO 

020 

148 

00 

SERIES  6A  MEMORY  TEST  PARTI 

00080 

021 

1  48 

00 

SERIES  6 A  MEMORY  TEST  PART2 

01000 

022 

159 

02 

SERIES  32  SYSTEM  EXERCISER 

OOAOO 

024 

162 

00 

02-340  MEMORY  TEST  PART  1 

00080 

025 

162 

00 

02-340  MEMORY  TEST  PART  2 

01000 

026 

178 

00 

SERIES  32  PROCESSOR  TEST  PART3 

OOAOO 

027 

157 

00 

32  BIT  SER.  6A  MEM.  TEST  PARTI 

04000 

028 

157 

00 

32  PIT  SER.  6A  MEM.  TEST  PART2 

OOAOO 

102 

071 

00 

801  AUTO  CALL  UNIT  TEST 

00080 

103 

101 

00 

DIGITAL  MULTIPLEXOR  TEST 

OOAOO 

106 

127 

01 

PALS  OFF-LINE  TEST 

OOAOO 

109 

132. 

02 

201/301  DATA  SET  ADAPTER  TEST 

00400 

10E 

1  40 

00 

DYNAMIC  CONTROL  STORAGE  TEST 

OOAOO 

1  10 

147 

00 

CONVERSION  EQUIPMENT  TEST 

OOAOO 

1 1  1 

140 

00 

F01  MUX  BUS  SWITCH  TEST  PARTI 

OOAOO 

1  12 

140 

00 

F02  MUX  BUS  SWITCH  TEST  PART2 

OOAOO 

1  13 

150 

00 

SENSE  CONTACT  MODULE  TEST 

OOAOO 

114 

151 

00 

RELAY  DRIVER  TEST 

OOAOO 

115 

163 

01 

GRAP.  DISPLAY  TERMINAL  TEST 

OOAOO 

117 

166 

CO 

F01  SA  360/370  IF.  TEST  INTER. 

OOAOO 

1  18 

167 

00 

F01  MA  360/370  IF.  TEST  INTER. 

OOAOO 

119 

179 

00 

16  BIT  SELCH  T^ST 

OOAOO 

120 

165 

03 

SERIES  32  LSI'  SIP ’OPT  PROGRAM 

OOAOO 

200 

161 

01 

EXTENDED  SELECTS"?  CHANNEL  TEST 

OOAOO 

202 

160 

02 

F01  MEMORY  ACCESS  TEST  PAPT  1 

OOAOO 

203 

160 

02 

F02  MEMORY  ACCESS  TEST  PART  2 

0FFF8 

300 

168 

00 

COMMON  HSPT  READER/PUNCH  TEST 

OOAOO 

301 

169 

00 

COMMON  CARD  READER  TEST 

OOAOO 

302 

170 

01 

COMMON  LINE  PRINTER  TEST 

OOAOO 

303 

171 

00 

COMMON  CASSETTE  TEST 

OOAOO 

304 

172 

00 

COMMON  MAG  TAPE  TEST 

OOAOO 

305 

173 

00 

F01  COMMON  DISC  TEST 

OOAOO 

30K 

173 

00 

F02  COMMON  DISC  FORMATTER 

OOAOO 

122 
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000  A3 
0029F 
02C  1  8 
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0  1 84  F 
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004  AP 
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503  182  00  MEMORY  ACCESS  MULTIPLEXOR (MAM)  00A00  04940 

600  999  05  TELEFILE  DISC  TEST  00400  04C2C 


APPENDIX  I 


SERIES  32  BASIC  TEST 

It  is  assumed  that  the  multi-media  loader  has  been  loaded 
as  described  in  Appendix  H,  and  "FFFF"  is  in  the  right-most 
position  on  the  hexadecimal  panel. 

On  the  hexadecimal  panel  push: 

DTA,  019,  RUN  -wait  for  "FF"  to  appear 

Once  the  "FF"  appears  then  enter: 

DTA,  0080,  ADR,  RUN  -the  program  is  now  running 

Observe  F2  in  display  and  follow  page  A2-1  in  BASIC  TEST 
MANUAL.  Program  MUST  stop  after  "S32BT" .  If  it  does  not 
start  again  at  0080.  The  alphabet  and  numbers  0-9  will 
follow  after  a  second  push  on  the  run  button. 

You  may  then  input  from  the  keyboard  to  check  the  echo. 
Sample  Output : 

S32BT 

ABCDEFGHI JKLMNOPQRSTUVWXYZ  0123456789 

INPUT  FROM  KEY  BOARD . 

1234567890 :-QWERTYUIOP 
ASDFGHJKL; ZXCVBNM, ./ 
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APPENDIX  J 


SERIES  32  PROCESSOR  TEST  PART  1 
It  is  assumed  that  the  multi-media  loader  has  been  loaded 
as  described  in  Appendix  H,  and  "FFFF"  is  in  the  right-most 
position  on  the  hexadecimal  panel. 

On  the  hexadecimal  panel  push: 

DTA,  IB,  RUN  -wait  for  "FF"  to  appear 

Once  the  "FF"  appears  then  enter: 

DTA,  A00,  ADR,  RUN  -the  program  is  now  running 

Type  7X  on  TTY  and  observe  display  count  to  A  for  test  num¬ 
bers  2-A. 

Sample  Output: 

S32PT1  R02 

CPU 

* 

7X 

NO  ERROR 
000A  0000 
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APPENDIX  K 


SERIES  32  PROCESSOR  TEST  PART  2 
It  is  assumed  that  the  multi-media  loader  has  been  loaded 
as  described  in  Appendix  H,  and  "FFFF"  is  in  the  right-most 
position  on  the  hexadecimal  panel. 

On  the  hexadecimal  panel  push: 

DTA,  1C,  RUN  -wait  for  "FF"  to  appear 

Once  the  "FF"  appears  then  enter: 

DTA,  A00,  ADR,  RUN  -the  program  is  now  running 

Type  7X  on  teletype  after  teletype  stops  printing  and  follow 
instructions.  After  subtest  enter  the  number  for  the  test 
you  desire.  We  have  tests  1,  2,  3,  5,  6,  7.  After  entering 
a  number  hit  return  key. 

The  "BRK"  stands  for  BREAK  key  on  teletype  - 
Function  0  the  FN  key  and  0  key  on  the  hexadecimal  display. 
Power  Off/On  is  the  key  switch  on  the  hexadecimal  display  - 
On  Test  6  observe  the  hexadecimal  display  step  through  each 
part  of  test  6  by  pushing  the  break  key.  After  F  is  printed 
press  break  key  and  return  key. 

Sample  Output: 

S32PT2  R01 

CPU 

* 

7X 

SUBTEST 

* 
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Sample  Output  (Continued) 


1 

DEPRESS  KEYS 

1234567890 

1234567890 

DEPRESS  KEYS 

1234567890 

1234567890 

NO  ERROR 

SUBTEST 

* 

2 

PRESS  BRK 
NO  ERROR 

SUBTEST 

* 

3 

PRESS  BRK 
FUNCTION  0 
NO  ERROR 

SUBTEST 

* 

5 

1234567890 

1234567890 

ABCDEFGHIJ 

1234567890 

DEPRESS  KEYS 

1234567890 

1234567890 

1234567890 

DEPRESS  KEYS 

1234567890 

1234567890 

ABCDEFGHIJ 

SUBTEST 

* 

6 

ABCDEF 
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Sample  Output  (Continued) 


SUBTEST 

* 

7 

INITIALIZE 
PRESS  BRK 
POWER  OFF/ON 
PRESS  BRK 
NO  ERROR 


APPENDIX  L 


SERIES  32  PROCESSOR  TEST  PART  3 
It  is  assumed  that  the  multi-media  loader  has  been  loaded 
as  described  in  Appendix  H,  and  "FFFF"  is  in  the  right-most 
position  on  the  hexadecimal  panel. 

On  the  hexadecimal  panel  push: 

DTA,  2 6 1C,  RUN  -wait  for  "FF"  to  appear 

Once  the  "FF"  appears  then  enter: 

DTA,  A00,  ADR,  RUN  -the  program  is  now  running 

Type  7X  on  teletype  and  follow  instructions. 

Function  one  FN  and  0  key  on  hex  decimal  display 
Sample  Output: 

S32PT3  R00 

CPU 

* 

7X 

MAC  RESPONSE  AT  000300 

SUBTEST 

* 

1 

NO  ERROR 

SUBTEST 

* 

2 

NO  ERROR 

SUBTEST 

* 

# 

FUNCTION  0 
FUNCTION  0 
FUNCTION  0 
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Sample  Output  (Continued) 


DEPRESS  KEYS 

1234567890 

1234567890 

DEPRESS  KEYS 

1234567890 

1234567890 

NO  ERROR 


SUBTEST 


APPENDIX  M 


SERIES  32  MEMORY  TEST  PART  1 

It  is  assumed  that  the  multi-media  loader  has  been  loaded 
as  described  in  Appendix  H,  and  "FFFF"  is  in  the  right-most 
position  on  the  hexadecimal  panel. 

On  the  hexadecimal  panel  push: 

DTA,  ID,  RUN  -wait  for  "FF"  to  appear 

Once  the  "FF"  appears  then  enter: 

DTA,  2000,  ADR,  RUN  -the  program  is  now  running 

Press  Run  again  -  observe  an 

Press  Return  Key  and  observe  the  sample  output  on  the  tele¬ 
type. 

S32MT1  06-156F01R02 
* 

01 

02 

03 

04 

05 

06 

NO  ERROR 
* 
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APPENDIX  N 


SERIES  32  MEMORY  TEST  PART  2 

It  is  assumed  that  the  multi-media  loader  has  been  loaded 
as  described  in  Appendix  H,  and  "ffff"  is  in  the  right-most 
position  on  the  hexadecimal  panel. 

On  the  hexadecimal  panel  push: 

DTA,  IE,  RUN  -wait  for  "FF"  to  appear 

Once  the  "FF"  appears  then  enter: 

DTA,  A00,  ADR,  RUN  -the  program  is  now  running 

Observe  on  teletype  the  available.  One  board  of  memory  re¬ 
presents  32k  words  -  for  8  boards  that  is  262.  Available 
memory  is  printed  out  from  the  lowest  location  to  the  high¬ 
est  location.  Example:  0000  -  3 FFFF  would  mean  that  boards 
.1  through  8  are  good.  If  a  board  or  part  of  a  board  is  bad 
on  would  observe  the  available  memory  broken  up  -  Example: 

00000  -  17FFF 
2000  -  2BFFF 
2E000  -  2FFFF 

The  Board  Breakdown  by  memory  is  as  follows : 

MEMORY  BOARD  NUMBER  MEMORY 

1  0  -  7FFF 


2 

8000  -  FFFF 

3 

10000  -  17FFF 

4 

18000  -  1FFFF 

5 

20000  -  27FFF 

6 

28000  -  2FFFF 

7 

30000  -  37FFF 

8 

38000  -  3FFFF 
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For  one  run ,  type  0 ,  Return 

For  continuous  Runs,  Type  L,  Return.  The  BRK  Key  will  ter¬ 
minate  continuous  runs . 

Sample  Output: 

S32MT2  06-156F02R02 
AVAILABLE  MEMORY 
00000  -3FFFF 

SUBTEST 
*  1 
01 

NO  ERROR 

SUBTEST 
*  2 
02 

NO  ERROR 

SUBTEST 

*  3 
03 

NO  ERROR 

SUBTEST 

*  4 
04 

NO  ERROR 

SUBTEST 

*  5 
05 

NO  ERROR 

SUBTEST 

*  6 
06 

NO  ERROR 

SUBTEST 
*  7 
07 

NO  ERROR 
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Sample  Output  (Continued) 


SUBTEST 
*  0 
01 

NO  ERROR 
02 

NO  ERROR 
03 

NO  ERROR 
04 

NO  ERROR 
05 

NO  ERROR 
06 

NO  ERROR 
07 

NO  ERROR 


SUBTEST 


APPENDIX  0 


SERIES  32  MEMORY  TEST  PART  3 

It  is  assumed  that  the  multi-media  loader  has  been  loaded 
as  described  in  Appendix  H,  and  "FFFF"  is  in  the  right-most 
position  on  the  hexadecimal  panel. 

On  the  hexadecimal  panel  push: 

DTA,  IF,  RUN  -wait  for  "FF"  to  appear 

Once  the  "FF"  appears  then  enter: 

DTA,  A00,  ADR,  RUN  -the  program  is  now  running 

Observe  *,  hit  carriage  return. 

Observe  the  hexadecimal  display  count  through  memory  - 

For  continuous  test  type  L  and  return  - 

S  amp le  Output : 

S32MT3  06-156F03R02 
AVAILABLE  MEMORY 
00000-  3FFFF 

* 

NO  ERROR 
* 
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APPENDIX  P 


MEMORY  ACCESS  TEST  PART  1 

It  is  assumed  that  the  multi-media  loader  has  been  loaded 
as  described  in  Appendix  H,  and  "FFFF"  is  in  the  right-most 
position  on  the  hexadecimal  panel. 

On  the  hexadecimal  panel  push: 

DTA,  202,  RUN  -wait  for  "FF"  to  appear 

Once  the  "FF"  appears  then  enter: 

DTA,  A00,  ADR,  RUN  -the  program  is  now  running 

Type  Run  and  observe  results  - 

Sample  Output: 

MACT  06-160F01R02 
AVAILABLE  MEMORY 
00000-  3FFFF 


*  RUN 
TEST  00 
NO  ERROR 

TEST  01 

NO  ERROR 

TEST  02 

NO  ERROR 

TEST  03 

NO  ERROR 

TEST  04 

NO  ERROR 

TEST  05 

NO  ERROR 

TEST  06 

NO  ERROR 
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Sample  Output  (Continued) 

TEST  07 
NO  ERROR 
TEST  08 
NO  ERROR 
TEST  09 
NO  ERROR 
TEST  0A 
NO  ERROR 


APPENDIX  Q 


MEMORY  ACCESS  TEST  PART  2 

It  is  assumed  that  the  multi-media  loader  has  been  loaded 
as  described  in  Appendix  H,  and  "FFFF "  is  in  the  right-most 
position  on  the  hexadecimal  panel. 

On  the  hexadecimal  panel  push: 

DTA,  203,  RUN  -wait  for  MFF "  to  appear 

Once  the  "FF"  appears  then  enter: 

DTA,  10000,  ADR,  RUN  -the  program  is  now  running 

Type  Run  and  observe  results  - 
Sample  Output: 

MACT  06-160F02R02 

*  RUN 
TEST  00 

NO  ERROR 

TEST  01 

NO  ERROR 

TEST  02 

NO  ERROR 

TEST  03 

NO  ERROR 

TEST  04 

NO  ERROR 

TEST  05 

NO  ERROR 

TEST  06 

NO  ERROR 

TEST  07 

NO  ERROR 
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APPENDIX  R 


COMMON  LINE  PRINTER 

It  is  assumed  that  the  multi-media  loader  has  been  loaded 
as  described  in  Appendix  H,  and  "FFFF"  is  in  the  right-most 
position  on  the  hexadecimal  panel. 

On  the  hexadecimal  panel  push: 

DTA,  302,  RUN  -wait  for  "FF"  to  appear 

Once  the  "FF"  appears  then  enter: 

DTA,  AOO,  ADR,  RUN  -the  program  is  now  running 

Type  Run  on  teletype  - 

Observe  results  on  teletype  and  printer  -  Be  sure  printer 
in  on! ! 

Sample  Output  from  Teletype : 

COMMON  LINE  PRINTER  TEST  06-170R01 

*RUN 

TEST  00 
NO  ERROR 
TEST  01 
NO  ERROR 
TEST  02 
NO  ERROR 
TEST  03 
NO  ERROR 
END  OF  TEST 

* 
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APPENDIX  S 


COMMON  CASSETTE  TEST 

It  is  assumed  that  the  multi-media  loader  has  been  loaded 
as  described  in  Appendix  H,  and  "FFFF"  is  in  the  right-most 
position  on  the  hexadecimal  panel. 

On  the  hexadecimal  panel  push: 

DTA,  303,  RUN  -wait  for  "FF"  to  appear 

Once  the  "FF"  appears  then  enter: 

DTA,  A00,  ADR,  RUN  -the  program  is  now  running 

Be  sure  the  tape  heads  are  clean 

As  you  place  the  cassette  in  the  drive  have  the  take-up  on 
your  left  and  supply  on  your  right. 

Type  "DEVADR  45"  or  "55"  for  testing  the  device  -  45  for 
left  drive,  55  for  right  drive. 

Type  "RUN". 

Observe  the  tape  drive . 

There  are  options-to  see  what  they  are  type  option. 

Sample  Output : 

COMMON  CASSETTE  TEST  PROGRAM  06-171R00 

* DEVADR  45 
*RUN 

TEST  00 
NO  ERROR 
TEST  01 
NO  ERROR 
TEST  02 
NO  ERROR 
TEST  03 
NO  ERROR 
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Sample  Output  (Continued) 


TEST  04 
NO  ERROR 
TEST  05 
NO  ERROR 
TEST  06 
NO  ERROR 
END  OF  TEST 
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APPENDIX  T 


COMMON  MAG  TAPE 

It  is  assumed  that  the  multi-media  loader  has  been  loaded 
as  described  in  Appendix  H,  and  "FFFF"  is  in  the  right-most 
position  on  the  hexadecimal  panel. 

On  the  hexadecimal  panel  push: 

DTA,  304,  RUN  -wait  for  "FF"  to  appear 

Once  the  "FF"  appears  then  enter: 

DTA,  A00,  ADR,  RUN  -the  program  is  now  running 

Type  "DEVADR  95" 

Type  Run 

There  are  options  -  Type  "OPTION"  to  list  them. 

Observe  tape  drive . 

Sample  Output: 

COMMON  MAGNETIC  TAPE  TEST  PROGRAM  06-172R00 
*OPTION 

TEST  0,1, 2, 3, 4, 5 
LOOP  0000 
CONTIN  0000 
NOMSG  0000 
DEVADR  0085 
DV2ADR  0000 
SELCH  00F0 
INTLEV  0000 
DEVICE  0000 
MODE  0000 
TRACK  0009 
RECFIL  0100 
BYTES  00FF 
FILES  0001 
REPEAT  0003 
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Sample 

Output  (Continued) 

IRG 

0010 

DU 

0000 

READ 

0001 

WRITE 

0001 

BKSPAC 

0001 

SKIP 

0001 

WEOF 

0000 

COMPAR 

0001 

CRC 

0000 

RDCRC 

0000 

DUMP 

0000 

DATA 

0001 

SCOPE 

0000 

TIME 

0800 

*DEVADR 

.  95 

*RUN 

TEST  00 

NO  ERROR 

TEST  01 

NO  ERROR 

TEST  02 

NO  ERROR 

TEST  03 

NO  ERROR 

TEST  04 

NO  ERROR 

TEST  05 

NO  ERROR 

END  OF 

TEST 

APPENDIX  U 


On  the  following  pages  are  the  program  that  are  from  the 

SATCOM  Spectrum  Analysis  System.  They  are  in  order: 

MAIN 

LINK 

BLOCK  DATA 
SPECTRL  (C4 ) 

ILLEGAL  ENTRY  HANDLER 

WAIT  MS 

TEKTRO 

Following  the  above  programs  are  other  programs .  One  is 
a  FORTRAN  program;  the  others  are  CSS  programs. 
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CO^.MDN/BLKI  /  LGTA3(78^10)  ^IDEV/^MU^^OEC^PT^NU^SEF*  (16) 

1 , NUMR EG, FNUMRS,PT, POWER,  PON  T9 

*, J  F9EQ,  REM6E9,INDEX,IIFREa,LPF9W,IFATN 

*,IFREQ(24,4) 

COMMON/BLKS/CMD^OLD^TACK  (10)  ,STATE,M0D5 ,3UTLIS  (1  3,6) 
COMMON /3LK 4/ F (102 5), I  2D  ATI (2n50),I2DAT2(2C50) 

1 ,9UFFER( 33), DAY (2),HOUR(2) ,  MONT (12) 

*,VMAX,VMI,N,IX1  ,IX2,IY1  ,IY2,X"IN,XMAX,YMIN,YMAX,IL0C, 

*  I  PUT 

LOGICAL  D  E  CMp  T 
ADDRESS  I N  T  R  °  T 

INTEGER *4  PT, POWER, STACK, P0NT9, STATE, L3TA3 
*,IDEV,NUM, II, JJ, NUMBER, ICNT,IADC,ITIME,IAVG,IPLOT, 
*,ILNLG,J  FREQ,MOOE,ICHN,REM9ER,INOEX,IIFREQ,IFATN 
*,C*D,HOLD,BUTLIS 
PEAL  F(1325),LPF1W 

INTEGER *2  I20AT1 (2050),l2DAT2(2053) 

INTEGER  BUFFER (33), DAY (2) , HOUR (2) ,M0NT(12) 

CALL  LINK 
DO  30  1=1, 2050 
I2DAT1 (I) =1 
I  2D  AT2 ( I ) =2 
30  CONTINUE 
END 
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SU3R0UTINE  LIN< 

C  OMflON /  3 L<  1  / LG  T  A3  (  78 , 1 0 )  ,  1 0 E  V  ,.NU M  ,  D  E C  MP  T, NUMB  E  R  ( 1  6 ) 

1  ,NUMREG,FNUMRG,PT  , POWER,  PONTR 

*,JFREQ,  R EMBER, INDEX, IIFREa,LPF 3 W,IFATN 

*,IFREG(24,4) 

COM'I10N/3LK3/CVD, HOLD, STACK(IQ), STATE, MODE, 3UTLIS(18, 6) 
LOGICAL  DECMPT 
ADDRESS  I  N T  R  P T 

I NTEG  ER  *4  PT, POWER, STACK, PONTR, STATE, LG  TAB 
*,  IDEV,NUM,II , J J , NUMBER, I C NT, I  ADC, I  TIME, I A  V  G , I  PLOT, 

*,  ILNLG,J  FREQ,mODE,ICHN,REM3ER, INDEX,I IFREQ, I FATN 
*,CMD,H0LD,3UTLIS 
REAL  F (1025) ,LPF3W 

INTEGERS  I2DAT1  (2050), I2DAT2  (2050) 

INTEGER  0UFFER(33),D4Y(2),HOUR(2),MONT(12) 

DATA  MONT/1 JAN  FE°  MAR  APR  *  A Y  JUN  JUL  A  J  G  SEP  OCT  NOV 
*  DEC  1 / 

C  CLEAR  DEVICES  A  2 5 , A  2 6 , C 4 , T E < T R 0 N I C S  4014 

1  CALL  APCLR 

DO  100  1=1,78 
CALL  <TLWR(4,-I) 

103  CONTINUE 

CALL  TEKTRO 

C=========================================================== 

C  SET  UP  FOR  INITIAL  RUM 

C  =  =  3*  =  =  =  =  =  =  Xia==SX3=3*  =  =  =  =  =  =  =  ==  =  =  =  =  =  =  ==  =  C=:==lI3  =  =  ==*==  =  ==S  =  =  = 

r  C  N  T  =  2  5  6 
I  ADC* 1 
I  T  I  M  E  =  1 
I  A  V  G  =  1  3 
I  PLOT  =  1 
I L  N  L  G  *  2 
FREQ=1 0330.0 
V’AX  =  0. 3 
V  M  I N  =  0 . 0 
IPLOT= 1 
I  L  N  L  G  =  2 
v  0  D  E  =  1 
S  T  A  T  E  =4 
P  0  N  T  R  =  1 

INTRDT  =  A '  1111  • 

C  NT  =  1 
C  v  D  =  3 
VS=0303 1 
H  OL  D  =  C 

C  R & I T  E  TO  STATUS  SOvE  MESSAGES 
WRITE  (4,401) 

CALL  ‘WAIT  (*S) 

WD IT F (4,402) 

401  FORMAT (  1  INSTRUCTION:  1  ,/ 

1*1  WILL  TALK  TO  YOU  BY  WRITING',/ 

THERE  AND  BY  LIGHTING  UP  C  4  '  ,  / 
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I'THE  INFORMATION  WILL  BE  ',/ 

1 ' ?EMINDERS;WHAT  I  AM  DOING',/ 

I'THE  NUMBER  AS  YOU  PUSH  THE',/ 

1 ' NUMBER  °AD  AND  ANY  PROMPTS',/ 

1 ' GOOD-LUCK  AND  LETS  GO  !!!',/) 

402  FORMAT ( 'HERE  IS  THE  PRESENT  STATUS:  ',/ 

1 //////////////) 

CALL  SETUP(ICNT,FREQ,IADC,ITIME,IA\/G,ILNLG,IPLOT, 
*SCAL£,ICHN) 

c ================================================== ======= 

C  CHECK  FOR  COMMANDS 

c ========================================================= 

CALL  KTL0N(4,  INTRPT) 

719  GO  TO  (720,730,770,750) ,CVD 

720  I F (HOLD. E3.0) SO  TO  730 
H  OL  D  =  0 

J=3UTLIS(1 ,MODE) +1 
DO  723  1=2, J 

CALL  KTLSIM(4,eUTLIS(I,M0PE)) 

723  CONTINUE 
730  0*0=3 

CALL  SPECTR(ICNT,IADC,ITI',E,IA\/G,IPLOT,ILNLG,ICHN, 
*FREQ,VMAX  ,\/MIN) 

770  50  TO  719 

750  GO  TO  1 

1111  CALL  KTLRD(IDEV,NUM) 

CALL  C4(ICNT,IADC,ITIME,IAV3,IPL0T,ILNLS,ICHN,FREQ) 
RETURN 
END 
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9 LOCK  DATA 

C0MM0N/3LK1/LGTA3  (73,10),IQEV,NUV',DEC,-’PT,NUM3ER(16) 

1 ,NUMREG,FNUMRG,PT, POWER,  POMTR 
*  ,  J  FREQ  ,  R EMBER, INDEX, IIFRE3,LPF9W,IFATN 
*, IFR£Q(24,4) 

INTEGER*^  PT, POWER, STACK, PONTR, STATE, LGTA8 
*,I0EV,NUV1,NUV13ER,ICNT,IADC,ITI'1E,IAVG,IPL0T,ILNLG 
*,JFREQ, MODE, ICHN, RE M?ER, INDEX, IIFREQ,IFATN 
*,CMD,H0LD,9'JTLIS 
*,IFREG(24,4) 

REAL  F(1325),LPF3W 

INTESER*2  I20AT1  (2050),  120  412  (2050) 

INTEGER  3UFFER(33),DAY(2),H0UR(2),M0NT(12) 

DATA  PT, POWER, NUMREG/3^/ 

DATA  NUMBER/ 7, 8, 9, 0,0 ,4, 5, 6, 0,1 ,2, 3, 4*0/ 

DATA  LG  TAB/I, 5 *0,1, 23 *0,1, 0,1, 2*0, 1,4*0, 1,30* 0,1, 6*0 

I, 48*0,17*1,0,1,11*0, 

II,  1,4 *0,4*1, 0,0, 12*1, 2 *0,3*1, 0,1 , 0,1 , 3 *0,5 *1,0, 3*1, 3*0 
*,17*0,0,1, 

*0,3*1, 2*1, 1,1, 3*0, 

*2*1,4*0,4*1,61*0,1,0,2*1,3*0, 

1468*0/ 

DATA  ifrEQ  /98S500000, 988750000, 989000000, 

C9S925Q00Q, 939500000,989750000, 990000300, 990250000, 

C 9 905 00000, 990750000, 99 1000000,991 250000,791500300, 

C991 750000,992000000,992250000,992500000,992750000, 

C 993000000, 993 2 5 0000, 10 41 500030, 1075 5 00000, 

CO, 0,1  004 500000, 101 9500000, 10 56500000, 105  35  00300, 

Cl  069500000, 1  0345 30000,1  15 3500000, 11  68500000,1  182500000, 
Cl  197500000,9  39450000,9396  50330,039603000,9  39650000, 
C939700000, 93975 0000, 9 398 00000, 939850000, 9 39900000, 
€939950000,940000000,9401 00003,1 106000000,0, 

Cl  005 5 00000,1 02 0500000, 103 75 00300,1 054 500000,1 0705 00000, 

Cl  035 500030,1  1  545  30000,1  169500000,1  183  530000,1  198  500000, 
€940450000,940550000,940600000,940650000, 9 40700000, 
0940750003,940800300,940850000,940900300,940950000, 

C94 1030000, 941 100000,1 1 17000000,0, 

Cl  006500000,1021  500000,1033  503000,105  5  500300, 

C  1071  500000,1036500000,1 1  55500000,1  1705000l30,1  184500000, 
C1199500000, 94 1453000,94 15 50Q00, 94 1600030, 941 650000, 

C941 700030,941 750300,941800300,941 850000,941930000, 

C941  950000,942000000,942100300,1  123000000,0/ 

END 
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SUBROUTINE  C 4 (  I  C N T , I  A D C , I T I  ME , I A V G , I PLO T , I LN LG , I C HN , 
★FREQ) 

COMMON /9LK1 /LGT A3 ( 78 , 1 0 ) , I DE V , NUM , DE CMPT ,NUMB ER ( 1 6) 

1 ,NUM REG ,FNUMRG,PT, POWER ,  PONT  R 

★, J  FREQ,  REMBER,INDEX,IIFREQ,LPF3‘W,IFATN 

★, I  FREQ (24/4) 

CO MMON/3LK3/CMD, HOLD, STACK(IO), STATE, MODE, BUTLIS(18, 6) 
LOGICAL  OECMPT 

INTEGER*4  PT , PO W ER , S T A CK , PONTR , S T A TE , LGT A 3 
★,IDEV,  NUM, NUMBER, ICNT,IADC,ITIv'E,IAVG,IPLOT,ILNLG 
★  , JFREQ, MODE,ICHN, REM BER, INDEX, IIFREQ, IF  A TN 
*,C.MD,H0LD,9UTLIS 
REAL  F  (1024) ,LPF3W 

C  TURN  OFF  ENTRY  REQJIRED 

CALL  KTLWR ( 4, -63) 

C  TEST  IF  THIS  WAS  LEGAL;  WAS  ANYTHING  SET  TO  SAY  WHAT  IS 
C  NOT  LEGAL? 

C  IF  THE  NUM3ER  IS  ALLOWED  THAN  IT  IS  LEGAL  AND  TRUE  OTHER- 
C  WISE  FALSE 

IF  (LGTAB  (NUM, STATE) .EQ.O)  CALL  ILEHDL 
C  NOW  C  H  EC  <  IF  THE  NUM3ER  PAD  IS  REQUIRED;  IF  SO  THEN  THEN 
C  CHANGE  THE 

C  LEGAL  ENTRY  TA3LE.  IF  NOT  CONTINUE 

IF (  (NUM.GT.48) .OR .( (NUM.LT.37) .AND. (NUM.3T.9) ) 

1  .OR.  (NUM.LT.3) )G0  TO  200 
100  CONTINUE 

C  HERE  WE  WILL  CHANGE  THE  LGT  A3  ENTRY; SOME  HOW  KEEPING  THE 
C  OLD 

STACK (PONTR) =STATE 
PQNTP=P0NTR+1 
3  TAT  E  =  2 

2)0  CONTINUE 

CNOW  CHECK  FOR  THE  VARIOUS  NUM  AND  PERFORM  TH  E I °  SPECIFIC 
C  ACTIONS 

GO  TO  (1003,1000,1000,1000,9999,9999, 
★7000,3000,9000,10000,11 000,9999, 

★1 3000,1 4000,15000,16000,1 7000,9999, 

★19000,1 9000,19000,19000,1 9000,19000, 
★9999,9999,27000,28000,29000,9999, 
★31000,9999,33000,9999,9999,9999, 
★37000,38000,39000,40000,41000,9999, 
★43000,44000,45000,9999,9999,9999, 
★49000,49000,49000,52000,53000,49000,49000,49000, 
★57000,49000,49000,49000,61000,9999,9999,49000, 
★65000,9999,67000,9999,69003,70000,71003, 
★72000,72300,74000,72000,72000,9999) , NUM 
C  FPE9  PLAN  ROW 

1000  JFREQ=NU1 
GOTO  20 

C  v  0  D  E  ROW 

7000  ■'iODE  =  1 
S  T  A  T  E  =4 
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F  R  E  3  =  1 000003 . 0 
I C  N  T  =  2  5  6 
I  A  V  G  =  20 
I PLO  T  =  1 
I  CHN  =  21 
SCALE=13.0 
ITI"IE  =  0 
I  A0C  =  2 
I L  NL  S  =2 

C  SET  UP  RECEIVER  RCVP  CHNSC;ATN  *□''<?;  IF  FLTR  =  IW; 

C  L.0.  =  99.1vtHZ 

I S  T  A  T  =  KTLWR(5,Y' 100' ) 

ISTAT*<TLWR<5,Y'37F ' ) 

I  5TAT=<TLUR  (5,  Y  '213') 

CALL  KTLWR<7,99100Q000> 

CALL  <TL^R(4,15) 

CALL  KTL9R(4,21) 

CALL  <TLWR(4,29) 

CALL  <TLWR<4,33) 

GC  TO  23 

3000  '•!  0  D  E  *  2 

REy8ER=NUM+39 
F  R  EQ  =  2  3003 . D 
ICNT=256 
I  A  V  G  =  2  0 
I  PLOT  =  1 
SC  ALE =10.0 
I  T  I  E  =  Q 
I  A  D  C  =  1 
I  L  NL  G  =  2 

C  SET  UP  THF  RECEIVFP  RCVP  CHN  =  C;  IF  FILTR=30KHZ;  A  TN  =0DB 
CALL  KTLWR<5,Y'37F'> 

1ST  AT  =  <TL.JR  (5  ,Y  '  230  '  ) 

ISTAT  =  KTLWR(5,Y'  100' ) 

CALL  KTLWR(4,15) 

CALL  <TLJR(4,21) 

CALL  <TLvVR(4, 23) 

CALL  <T  L  R  (4,33) 

GO  TO  20 

9000  V'00E  =  NU1REG  +  ? 

RE*l9ER=NUrt  +  37 
GO  TO  2  3' 

1  0000  S  T A  T  E  =  3 
SO  TO  20 

11300  ICNT=256 

FREG=1 300300.0 
I  A  V  G  =  2  0 
I  P  L  0  T  =  2  0 
I  C  H  N  =  1 1 
SCALE=10.0 
I  TIME =0 
I  A  D  C  =  2 
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I LNLG=2 

C  SET  UP  THE  RECEIVER 

1ST  AT=<TLWR (  5  ,  Y ' ICQ' ) 
ISTAT=<TLWR (5/Y '  37F ' ) 
ISTAT=KTLWR(5,Y'230' ) 

C  SET  THE  LOCAL  OSC  UP 

CALL  KTLWR(7, 1041500000) 
CALL  KTL'WR(9, 1075000000) 
CALL  KTLWR(4,15) 

CALL  KTLWR (4,21  ) 

CALL  KTLWR(4,29) 

CALL  KTLVR(4,33) 
r 

1  3000  I S  T  A  T  =  KTLWR (5 ,Y ' 220 ' ) 


GO  TO  20 

1  4000  I S T  A T  =  KTLWR (5 ,Y ' 228  '  ) 
GO  TO  20 

1  5000  I S  T  A  T  =  KTLWR (5,Y' 230'  ) 
GO  TO  20 

16000  ISTAT=KTLWR(5,Y'233') 
GO  TO  20 

1  7000  ISTAT  =  KTLWR  (5,Y'218' ) 
50  TO  20 
C 

19000  ICNT=2**(NUM-19)*64 

GO  TO  20 
C 

27000  IF  ( IT  I *E . EQ . 1 ) GO  TO 
IT IME  =  1 

CALL  KTLWR(4,27) 

GO  TO  27002 

27001  ITIME=C 

CALL  K.  T  L  a!  R  (4,-27) 

27002  WRITE  (4,27003)  ITME 

27003  FORMAT ( 1  ITIME=  ',11) 
GO  TO  20 

23000  I  A D C  =1 

CALL  KTLWP(4,-29) 

GO  TO  20 
29000  I  A  D  C  =  2 

CALL  KTLWR (4,-28) 

GO  TO  20 

n 

K. 

3 1  COO  I LNLG=1 
GO  TO  20 
33000  I L N LG  =2 
GO  TO  20 
C 

37000  CONTINUE 
MODE =10 
REM9ER=NUM 
WPITE(4, 37040) 


IF  FILTER  ROW 


FFT  9  LOC  <  SIZE  ROW 

OPTIONS  ROW 

27001 


PLOT  ROW 

DATA  ENTRY  ROW 
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WRITE (4,37041 ) 

37040  FORMAT ( '  ENTER  CHANNEL  N  U  M  3  E  R  '  ) 

37041  FORMAT ( '  THEN  PRESS  ENTER  ',/•  OR  CLEAR  ENTRY') 

SO  TO  20 

38000  CONTINUE 

REMBER=NUM 
WRITE (4,37042) 
wRITE (4,37041  ) 

37042  FORMAT ( '  ENTER  C  c  M  T  E  D  FREOUENCY') 

SO  TO  20 

37003  CONTINUE 

REMQER=NU.M 
WRITE  (4,3  7043) 

WRITE  (4,37041  ) 

37043  FOR  1 A  T (  '  ENTER  LP  FILTER  1  .y  .  •  ,/ • 1  MHZ ,1 33, 30, 1 0,3  KH7') 
GO  TO  20 

40000  CONTINUE 

REYBFR=NUN 
WPITE(4, 37044) 
wRITE (4,37041 ) 

37044  FORMAT ( '  ENTER  A  TO  0  RATE') 

SO  TO  20 

41  000  R  E  M  3  E  R  =  N  U  iM 

WRITE  (4,37048  ) 

3  70  h  3  FORM »T( ' ENTER  THE  NUMBER  OF  PLOTS  DFSIRED') 

WR  ITE (4,37041  ) 

SO  TO  23 

43000  CONTINUE 

R  E  v  3  E  R  =  N  'J  M 
WRITE  (4,37045  ) 

WRI TE (4, 37041 ) 

37345  FORMATC  ENTER  IF  ATTENUATION') 

SO  TO  20 

44000  GO  TO  9997 
RE V3ER=NUM 
WPI TE (4,37046 ) 

WRITE (4,37041 ) 

37046  FORMATC  c  N  T  E  R  BANDWIDTH  DESIRED  FOR  PLOT') 

GO  TO  20 

45000  REM9ER=NUM 

WRITE(4, 37047) 

WRITE (4,37041 ) 

37347  FORMAT (  '  ENTER  NUMBER  OF  BLOCKS  TO  BE  A  V S '  ) 

GO  TO  20 

C  NUMBERS 

47000  CONTINUE 

IF  (DF.CMPT)  P  T  =  PT  + 1 

C  BY  THIS  TIME  WHAT  EVER  HAS  GOTTEN  THRU  SHOULD  ONLY  B E 

C  A  NUMBER 

C  NOW  DO  THE  TRANSLATION 

NUMREG  =  NUMREG*10-*-NUMRER  (Nil "-4 3  ) 

B=NUMREG*10**(P0WER-PT ) 
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WRITE  (4,48)B 
43  FOR>1AT(G20.6) 

GOTO  20 
52000  °  OWE  R  =6 
GO  TO  20 

C  ENTER 

53000  CONTINUE 
50  A=NUMREG 

W=FLOAT (POWER-PT) 

FNUMRG=A*10.0**(W) 

NUMREG*FNUMRG 

C  NOW  TURN  THE  NUMBER  FLAG  OFF 
D  T  =  0 
POWER=0 

INDEX=REM0ER-36 
P0NTR=P0NTR-1 
STATE  =  STACK(PO,NT,R) 

GO  TO  (3700,3800,3900,4000,4100,9999,4300,4400,4500, 
*4600,4700) , INDEX 
3700  ICHN=N UNPEG 
N  U  iN  R  E  G  =  0 
P  T  =0 
P  0  W  E  R  =  0 
N  0  D  E  =  1  0 

CALL  <TLWR(7,IFREQ(ICHN,J FREQ) ) 

WRITE (4, 3340) ICHN 
3 34 C  F0RN4T  ( 'CHANNEL* , 12) 

GO  TO  20 

3300  C=FNUMRS-150000030 

IIFREQ=C*10 
N  UMREG  *0 
PT  =  0 
P  0  W  E  R  =  0 

CALL  KTLWR (7, 1 1  FREQ ) 

WRITE(4,3350) FNUNRG 
335C  FORMAT!  *  CENTER  FREG  AT  *,^12.5) 

GO  TO  20 

3900  LPF3W=FNUMRG 
NUMR  EG  =0 
PT  =  0 
POWER=0 

CALL  KTLWR(13,LPFBW) 

WPITE  (4,3940) LPFBW 

3940  FORMAT  (  *LP  FILTER  3W  IS  *,G12.5) 

GO  TO  20 

4000  FREQ  =  FNUV'RG 
NUMREG=3 
P  T  =0 
POWER =0 

JR  ITE (4,4040) FREQ 

4040  FORMAT ( 'SAMPLE  RATE  OF  »  ,  G  1  2 . 5  ) 

GO  TO  20 
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4 1  no  IPLOT  =  N  U  M  R  E  G 
NUMREG=0 
P  T  =  G 
30  W  E  R  =U 

WRITE  (4,4140)  IPLOT 

4140  FORMAT ('THE  NUMBER  OF  3-D  DL0 TS ' , / ' U I LL  PE  ',12) 

30  TO  20 

4300  IFATN=NUMREG 
NUMREG=3 
P  T  =0 
PO  WE  R  =  0 

IHEX=X'37F'-IFATN 

ISTAT  =  KTLWR(5 ,Y ' 37 F ' -I  FAT'D 

WRITE (4,4340)  I  F  A  T  N 

4340  FORMAT ('IF  ATTENU AT  ION  IS  ',13,'  DB  '  ) 

GO  TO  23 

4400  GO  TO  9990 
4530  I4VG=NUMREG 
NUMREG=0 
o  T  =  0 
P  0  W  E  R  *  0 

WP I TE ( 4, 4540) IAVG 

4540  F0RMAT(I6,'  BLOCKS  ARE  TO  3E  AVERAGED') 

GO  TO  20 
4600  CONTINUc 
S IJ  M  R  fc'  G  =  0 
PT  =3 
POWER=0 
SI  ATE=4 

C  STUFF  IN  HERE  THE  AUTO  NUMBER  JUNK 
GO  TO  9999 
GO  TO  2 G 

4730  ICHN  =  NUV<?EG 
N  U  M  R  E  G  *  C 
p  T  =  0 
POWER =0 
S  T  A  T  E  =4 

CALL  KTLWR(7,IFREG(ICHN,JFPEJ)) 

30  TO  23 

C  POWERS,  DECIMAL  DT,  CLEAR  ENTRY 

57330  P0WER=3 
GC  TO  20 
61000  P 0 W E R  =  0 
GO  TO  23 

65000  DEC  iMPT  =  . TRUE. 

GO  TO  23 
67330  CONTINUE 
N  U  Yi  R  E  G  =  0 
PT  =  3 
POWER  =0 

DEC  M  P  T  =  .  FALSE. 

30  TO  20 
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C  SPECTRUM  RECEIVER  CONTROL 

69000  ISTAT=KTLWR(5,Y' ICO' ) 

GO  TO  20 

70000  ISTAT=KTLWR(5,Y' 180* ) 

GO  TO  20 

71000  ISTAT=KTLWR(5,Y'1G0' ) 

GO  TO  20 

C  PROGRAM  CONTROL 

72000  C D  =  N U 1 - 7 1 
GO  TO  20 
74000  H  0  L  D  =  1 

GO  TO  20 

9999  WRITE  (4,405) 

405  FORMAT!  ' SORRY  I  A M  NOT  PROGRAMED',/' FOR  THAT  ONE  YET',/) 


C  LIGHT  A  LAMP  (NUM) 

C 

20  CALL  KTLWR(4,‘WM) 

10  CALL  <TLEN(4,JUN<) 

CALL  KTLRET 
END 
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*>  T I  Tl  SUBROUTINE  ILLEGAL  ENTRY  HANDLER 
SUBROUTINE  ILEHDL 
C 
C 
C 

C  BRUNER  LIBRARY  SUBROUTINE 

C 

C 

C  TODD  T.».  3RUNEP 
C  APRIL  9,  1978 

C  SATCOM  SIGNAL  ANALYZER  LA?,  '^ONTEREY, 

C 

C 

C  OURPOSE:  INFORM  USER  THAT 
C  HE  PUSHED  THE  WRONG  BUTTON 

C  ENTRY  15  STILL  REQUIRED 

C  RETURN  TO  CALL  ING  PROGRAM 

C - 


CALL  KTLWR(4,62) 

LEAVE  IT  ON  FOR  A  WHILE 
CALL  WAIT  MS (1000) 

TURN  IT  OFF 

CALL  KTLWR  (4,-62) 

TELL  HIM  TO  ENTRE  A  NUMBER 
CALL  <TLWR (4,63) 

CALL  KTLEN  (4, JUNK) 

C  a  L L  <  TL  R  E  T 


END 


CALIFORNIA 


156 


C  WAITES  :  SUBROUTINE  TO  DELAY  THE  CALLER 

C 

C  WAITMS  MAS  ONE  CALLING  PARAMETER,  THE  LENGTH  OF  TINE, 

C  IN  MILLISECONDS,  THAT  THE  CALLER'S  TASK  IS  TO  BE 

C  DELAYED. 

C  WAITMS  USES  SVC  2  TO  GENERATE  A  TRUE  TIMED  DELAY. 

C 

SUBROUTINE  WAITMS  (MS ) 

INTEGER  MS 
C 

I  =  MS 

SA  SSM 

ST  11, PARA" 

SVC  2, BLOCK 
BS  DONE 
ALIGN  U 

BLOCK  D  3  0,11 

° A  R  A  M  DCF  0 
DOME  E  3 U  * 

TFORT 

END 
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SUBROUTINE  TEKTRO 
CALL  INITTC96U) 
CALL  TER'!  (3,4096) 
CALL  SET3UF(Z) 
RETURN 
END 


The  following  program  is  titled  SPRCVR.  It  is  a  FORTRAN 
program  designed  to  control  the  spectrum  receiver  by  the  C4 . 
This  program  exists  as  task  and  is  easily  executed  by  use  of 
the  SPRCVR  CSS  command.  One  need  only  type  on  the  system 
console  SPRCVR,  after  ensuring  that  SPRCVR. TSK  and  SPRCVR. CSS 
exist  on  the  system  volume  (disc) .  The  SPRCVR  CSS  command 
follows  the  SPRCVR  FORTRAN  program. 
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C  SPECTRUM  RECEIVES  CONTROL  PROGRAM 

C  THIS  PROGRAM  IS  VERY  SIMILAR  TO  THE  SPECTRL  PROGRAM  (C4) 

C  IT  HAS  ONLY  THE  PURPOSE  OF  CONTROLING  THE  SPECTRUM 
C  RECEIVER  ( A  2  5 ) .  THIS  PROGRAM  WILL  CONTROL  ONLY  ONE 
C  LOCAL  OSCILLATOR.  THE  OSC  THAT  IT  CONTROLS  IS  IN  RAC< 

C  17  A  1  3  .  THIS  IS  THE  OSCILLATOR  TO  SPECHANL  C.  ANY 
C  OTHER  OSCILLATORS  MUST  PE  SET  eY  HAND. 

C  THE  FREQ  CAN  BE  CHANGED  SY  SELECTING  A  FREQUENCY 
C  PLAN  AND  CHANNEL  OR  BY  ENTERING  THE  FREQUENCY  DESIRED. 

C  NOTE  THAT  THIS  PROGRAM  DIFFERS  FROM  C4  IN  THAT 
C  150  MHZ  IS  NOT  SUBTRACTED  FROM  the  CENTER  FREQUENCE 
C  ENTERED.  WHAT  YOJ  ENTER  IS  WHAT  YOU  WILL  GET 
C 

LOGICAL  DECMPT 

INTEGERS  PT, POWER, STACK (3) ,PONTR, STATE, LGTA9 
*,I0EV,NUM,NUM3ER(16),IFREQ(24,4> 

*,JFREQ, MODE, ICHN,  RE  MB  F.R, INDEX, IIFRE9,IFATN 
INTEGERS  LGTA3(73,2) 

ADDRESS  INTRPT 
DATA  PT, POWER, NU.MREG/3*0/ 

DATA  NUM-a  ER/7,3,9, 0,3,  A,  5, 6, 3, 1,2, 3, 4*0/ 

DATA  LSTA3/2*1, 13*0, 5*1, 19*0, 2*1, 4*0, 1,25*0, 3*1, 0,9, 5*0 
1,48*0,17*1,0,1,11*0/ 

DATA  IFRtQ  / 9 33 5 00000 , 9 8 8 7 S 000 0 , 9 99 00000 0  , 

C 9 892 50000, 939 500000, 989 75 0000,990000000,990250000, 

C9 9 0500000, 9907500 00, 991000030, 991250000, 991500000, 

C 991 750000,992000000,992250003,992500300,932750000, 

C 9 93 000030, 99 3 2 50000,1 041 500000,1 075500000, 

C 0,0,1 004500000,1 019500000,1 036500000,1053500000, 

C 1 069500000,1084500000,1 1 53530000,1168500000,11 82500000, 
C 1 197500000,939450000,939550000,939600000,939650000, 

C 93 9730003, 93 975 0000, 9398DGOOO, 93 9 3 50000, 9 3990 0000, 

C 9 39950000,940000000, 940 100000,1 1 06000000,0, 

Cl  005  500000,1  02  3500000,103  7500  000,1  05  4  500000,1  070500000, 
Cl  03  5  5  00000,1  1  54  500000,1  1  69  500000, 1  1 83 50C30  0, 1  193  500000, 
C 940450000,9405 50000, 9 40600000, 94065 0300, 94 0700000, 

C 9 4075 0000, 9403U0000,94 08 5 0000,9 40 900000,940® 5 0000, 

C941 030003,941 100000,1 1 1 7500000,0, 

Cl  006500000,1  321500003,1038  500000,1  055  5333  00, 
C1371500000, 10865 00 000,1 155500000,1 1 70500000, 1 1 84500000, 
Cl  199500000,941  450000,941  5  50000,941600000,941  650000, 

C94 1700000,941 750000,° 41 300000,941 850000,941 900000, 

C 94 19 50000, 942 000000,9 42 100000,1 123000000,0/ 

DO  100  1=1,73 
CALL  <TLWR(4,-I) 

130  CONTINUE 
ST ATE=1 
?  0  N  T  R  =  1 
J  FRE3  =  1 

CALL  KTLWR(4,1) 

I N  T  R  P  T  =  A '  1111  ' 

CALL  KTL0N(4, INTRPT) 
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C  IF  YOU  DO  NOT  GET  AN  INTERUPT  PLEASE  WAIT 

1100  CALL  KTLWAT 

1111  CALL  KTLRD(IDEV,NUM) 

C  TURN  OFF  ENTRY  REQUIRED 

CALL  KTLWR(4,-63) 

N'J<i  =  NUf1 
5TATE=STATE 

LG  TAB (MUM, ST ATE) =LGTAB <NUW,STATE) 

IF  (LGTA3 (NUM, STATE) .pQ.O)  CALL  ILEHDL 
I F ( (NUM.GT.48) .0R.( (NUM.LT.37) .AND. (NUM.ST.9) ) 

1  .OR.  (NUM.LT.8) ) GO  TO  200 
STACK  (PONTR )  =  STATE 
P0NTR=P0NTR+1 
S  T  A  T  E  =  2 

200  CONTINUE 

GO  TO  (1300,1000,1000,1000,9999,9999, 
*7000,8000,9030,10000, 11000,9999, 

*1 3000,14000,1 5000,16000,1 7000,9999, 

*19003,1 9000,19000,19000,1 9000,19000, 

*99^9, 99 9 9, 2 7000,2  8300, 29000, 9 999, 

*31000,9999,33000,9999,9999,9999, 

*37000,38000,39000,40000,41000,9999, 

*43003,44300,45000,9999,9999,9999, 

*49000,49000,49000,52000,53300,49000,49003,49000, 

*57000,49000,49000,49000,61 300,9999,9999,49000, 

*65300,9999,67000,9999,69003,70000,71000, 

*72003, 72003, 74000, 72000, 72000, 9999), NUN 
1000  JFREQsNUM 
GOTO  20 

7000  30  TO  9999 

8000  GO  TO  9999 
9030  GO  TO  9999 
10300  GO  TO  9999 
HUGO  GO  TO  9999 
130G0  I S T A T  =  KTLWR(5,Y '220' ) 

GO  TO  20 

1  4000  I  ST  A  T  =  KTLWR(5,Y ' 228  '  ) 

GO  TO  20 

1  5000  I S  T  A  T=  <TLWR<5, Y* 230' ) 

GO  TO  20 

16000  ISTAT=KTLWR(5,Y'238‘) 

SO  TO  20 

17000  ISTAT=KTLWR(5,Y'218' ) 

GO  TO  20 

19000  GO  TO  9999 
27QQ0  GO  TO  9999 
28000  GO  TO  9999 
29JQ0  GO  TO  9999 
31000  GO  TO  9999 
33000  GO  TO  9999 
37000  RE1BER=MUtf 
GO  TO  20 
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38300  REM3ER  =  NU*I 
GO  Tv)  20 

39000  GO  TO  9999 
40000  GO  TO  9999 
41000  r,0  TO  9999 
42000  GO  TO  9999 
43000  R  E  MB  ER  =NUM 
GO  TO  20 

44000  GO  TO  9999 
45000  GO  TO  9999 
49000  CONTINUE 

IF  (DECI^T)  PT  =  PT  +  1 
C  MOW  DO  THE  translation 

NUMREG=NUMREG*10+NUMSER(NUM-48) 

3  =  NUyIREG*10.0**(P0WER-PT) 

GOTO  20 
52000  P  0  W  E  R  -  6 
GO  TO  20 
53000  CONTINUE 
50  A=NUV'RES 

W  =  F  L  0  A  T (POWER-PT) 

FNUMRG=A*10.0**(W) 

NU'1REG  =  FNUviRG 
P  T  =  0 
PCwER=0 

lN0EX=REM9ER-36 

P0NTR=P0NTR-1 

STATE=STAC<(PONTR) 

GO  TO  (3700,3300,3900,4000,4100,9999,4300,4400,4500,4600,4700 
*)  , INDEX 

3  70C  I  CHN  =  NU.VIREG 
N  U  ■A  R  E  G  =  0 
P  T  =  0 
POWE  R  =  0 
*0  D  E  =  1  0 

CALL  KTLWP (7, I FREG ( I CHN,J FRE9  )  ) 

GO  TO  23 

3900  GO  TO  999Q 
4000  GO  TO  9999 
4100  GO  TO  9999 
4400  GO  TO  9999 
4500  GO  TO  9999 
4630  GO  TO  9999 
4700  GO  TO  9999 
3300  C=FNUORG 

II F^EQ=C*10 
NUMR  EG  *0 
P  T  =0 
POWER=0 

CALL  <TLWR  (7, IIFREQ) 

GO  TO  23 

4300  I  F  A  T  M  =  N  U  M  R  E  G 


162 


NU«REGS3 

PT=n 

PCWER=0 

IHEX=X'37F'-IFATN 
iSTAT=KTLWR<5,Y'37F'-IFATN) 
GO  TO  23 
57303  P0WER=3 
GO  TO  20 
61000  POWER=0 
GO  TO  20 

65000  DEC^PT=  .TRUE . 

GO  TO  23 
67000  CONTINUE 
NlMPEG=0 
P  T  =  0 
P  OWE R  =  0 

DEC MPTS. FALSE. 

GO  TO  20 

69003  ISTAT=<TLWR(5,Y' ICO' ) 

GO  TO  20 

70000  ISTAT=<TLWR ( 5,Y ' 1 30 ' ) 

GO  TO  23 

71 300  ISTAT  =  <TLWR (5  ,Y  '  1 03 ' ) 

GO  TO  20 
72303  CONTINUE 
74000  CONTINUE 
999  ?  C  ALL  ILEHOL 
23  CALL  KTLW»(4,NU*) 

10  CALL  KTLEN(4,JUNK) 

CALL  <TLRET 
END 
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L  SPRCVR;T  SPRCVR;OPT  NON;ST 
SEXIT 
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The  following  program  is  a  CSS  command.  It  is  titled 
BIGBOY.  Its  purpose  is  to  permit  six  FORTRAN  programs  to  be 
compiled  by  the  operator.  This  command  is  particularly 
useful  when  one  desires  to  make  subroutines  whose  object 
module  is  to  be  included  in  the  TET  file;  or  is  one  is 
making  a  library  of  subroutines.  There  are  six  passing 
arguments  (@1,@2,@3,  .  .  .@6)  .  The  arguments  are  the  names  of 
the  programs  to  be  operated  on. 
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£COPY 

*1  A M  F0RT03JING  31,32,33,34,35,36 
r  N  0  C 

SET  SYS  15 
£  J  09 

FOR  T03 J  31 
£IF\E  3  ;  $  S  K  I  P 
£  E  IOC 
STERMJOP 
^  COP  Y 

*  I  A  »  F  0  R  T  3  9  J  I  .N  G  3  ? 

£NOC 

t  j  o-1 

FORTOBJ  32 
A  I  F  N  E  3  ;  £  S  K  I  p 
$  F  N  0  C 
£  T  E  R  M  J  0  8 
?  C  0  p  Y 

♦  I  4  M  FORTOBJ  INC  33 
S  N  0  C 

£  J  03 

FORTORJ  a3;5lFNULH3;  tSKIP 

i  I  F  M  E  f;  ;  $  S  <  I  P 

$  F.  N  0  C 

STPR'^J  03 

FCOPY 

*1  AM  FORTOPJING  34 
SNOC 
I  J  Oc 

FORT  OBJ  3A;£IFN!JL134;£SKIP 
£  I  F  N  E  9  ;  £  S  <  I  P 
•5  E  0  0  C 
XTERMJO3 
5  C  0  P  Y 

*1  AM  FORTOPJIOG  35 
SNOC 
S ,)  0  P 

FORTORJ  35;£IFNULL95;$SKIP 
£  I  F  N  E  0 ;  t  S  <  I  p 
£  E  N  D  C 
TTERMJ08 
£  C  0  P  Y 

*1  AM  FORT OBJ  IMG  36 
£  N  0  C 
£  J  OB 

F  OR  T  09  J  36; *  IF  NULL  36; $SK  IP 
iIFNE  0 ; £ S K  T  p 
£  E  N  0  C 
£  T  E  R  M  J  0  P 
5  C  OP  Y 
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5  M  0  C 

SET  SYS  10 
TEX  I  T 
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BIGPR  is  the  second  CSS  command  which  follows.  It  is 


program  similar  to  BIGBOY.  Instead  of  operating  on  the  pro¬ 
grams,  the  command  will  print  the  programs  on  the  printer. 
BIGPRTH  is  not  shown,  but  it  also  exists.  This  program  will 
print  the  desired  programs  on  the  printer  in  the  format 
necessary  for  a  thesis. 
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S  J  OS 

PR  31  .FTN;SIFNULL31 .FTN;$S<IP 
STERMJOB 
S  J  OB 

PR  32.FTN;$I FNULL32.FTN;$SKIP 

ETERMJ  09 

SJOB 

PR  33.FTN;SIFNULL33.FTN;S5<IP 

STERWJOB 

SJOB 

PR  34.FTN;$IFNULL34.FTN;$SKIP 

STERMJ  03 

SJOB 

PR  35  .FTN;*I FNULL3  5 .FTN;SS< IP 

STERMJ09 

SJOB 

PR  36.FTN;SIFNULL36.FTN;$SKIP 
STERMJ  03 
SC  OP  Y 

*  I  HAVE  PRINTED  31,32,33,34,35,36 

*  ANYTHING  MORE  ?????? 

SNOC 

S  E  X  I  T 
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TAPIT,  another  CSS  command  follows  next.  Similar  to 
BIGBOY,  BIGPR,  and  BIGPRTH,  TAPIT  will  copy  six  programs  to 
the  left  cassette  drive.  It  should  be  clear  with  these  ex¬ 
amples  of  BIGBOY,  BIGPR,  BIGPRT4,  and  TAPIT,  that  the  user 
can  link  a  number  of  operator  commands  together.  To  master 
this  early  will  save  the  user  time. 
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S  J  OS 

COPYA  5)1 
5TERYIJ08 
$  J  0  3 

COPYA  92 
STEP  Y1  JOB 
S  J  03 

COPYA  33 
STER'IJOB 
SJ03 

COPYA  3  A 
STERMJ03 
SJ  03 

COPYA  5)5 
STEPYIJOB 
SJOB 

COPYA  36 
S  NO  C 
SEXIT 


C  A  s  1 

C  A  51 

C  A  S  1 

C  A  SI 

C  A  S  1 

C  A  S  1 


The  next  program  is  B,  another  CSS  command.  This  command 
will  cause  the  left  cassette  file  to  be  copied  into  a  file 
called  NEW.  The  file  NEW  is  then  displayed  on  the  screen. 

The  purpose  of  this  command  is  to  permit  one  to  easily 
examine  files  on  a  cassette. 
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C  0  D  Y  A  C  A  S  1  :  ,  N  E  W 

S  H  NEW 

XEXIT 
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The  AP  CSS  command  follows.  This  program  allocates  all 
the  necessary  files  and  then  will  start  the  Floating  Point 
System  programs  for  software  development. 
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iIFNX  91  .  APO ; ALL  31.APO,IN,SO 
5ENDC 

tIFNX  3  1 .  APE  ;  A  LL  31.APF,IN,30 
SENDC 

$  I  F  N  X  31.CAL;ALL  3 1  .  C A L ,  I  N , SO 
SENDC 

L  .3G,N0N1  :APAL;T  .3G;AS  U, CON: 

AS  5,CON:;AS  6  ,  C  0  N  : ;  S  T 
SIF6  0 

L  .BG^ONl  :  APLINK;T  .3G;AS  A, CON: 
AS  5  ,  C  0  N  : ;  A  S  6  ,  CON:;  ST 
SIFF  C 

L  .3G,’A0N1  :APSIM;T  .3G;AS  A, COM: 

AS  5 , C  0  N : ; A  $  6, CON:  ;ST 

SENDC 
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BACKUP  is  the  last  CSS  command.  This  will  backup  a  disc 
that  has  been  placed  in  the  third  disc  slot.  The  comments  in 
the  listing  describe  the  program. 
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SCOPY 

* TH I S  IS  A  PROGRAM  TO  BACKUP  A  01  SC  . 

*  I T  ^ I LL  FIRST  CLEAR  0  A  (  T  H  E  BOTTOM  DISC). 

*  A  COMPRESS  IS  DONE  FROM  D3  TO  D4 

*  A  DISCINIT  IS  DONE  ON  D3 

*  A  COMPRESS  IS  DONE  FROM  DA  TO  D3 

*  A  COMPRESS  IS  DONE  FROM  [>4  jq  THE  Mag  TAPE 

*  TH  c  DISC  TO  3  E  SACKED  UP  MUST  BE  IN  D3 

*  T  H  E  ONLY  PASSING  ARGUMENT  IS  THE  NAME  OF  THE 
★DISC  TO  3  E  SACKED  UP(OR  NEW  NAME). 

★INSURE  THAT  THERE  IS  A  TAPE  ON  T H r  DRIVE 
SNOC 

L  .PG, DISCINIT, 43;T  .3S;0PT  NON;ST  ,  D  =  D  A  :  ,  V  =C  OM  p  ,  C  ,  3  =A  ?. 
SIFE  0 

L  .BG,C3CQMP,43;T  .3G;MA  D4:,0N;ST  , I =D 3 : , 0  =  D A :  , V 
TIFF.  0 

V  C 0 MP ; V  COMP/TE 
MA  0  3:,  OF 

L  .3G, DISCINIT, A3;T  .3G;ST  , D=D 3 : , V =3 1 , C , 0= A8 
*IFE  0 

L  .RG,C3C0VP,4?;T  ,3G;MA  D3:,0N;ST  , I =D A : , 0=D 3 : , L =C ON : 
SIFE  3 

L  .3S,C3C0MP,48;T  . a G ; S T  , I  =  D A : , 0  =  M T : , L  =  C ON : 

S  I  F  r  Q 
REW  MT: 

D  D  ;  D  ^  ;  V 
SNOC 
iENOC 
S  E  X  I  T 
?  CLEAR 
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APPENDIX  V 


The  programs  in  this  appendix  are  still  in  development 
or  are  complete  modules  that  are  to  be  integrated  with  pend¬ 
ing  modules  into  one  program  which  is  to  replace  the  pro¬ 
gram  SATCOM.  The  order  and  use  follow: 


ORDER  NAME 


USE 


1st  IOPACK 


2nd  AXIS 

3rd  XGRATL 

4th  YGRATL 

5th  GRATCL 

6th  SCREEN 

7th  ANNOT 

8th  VIRWIN 

9  th  RE  CTRL 

(SPRCVR) 

10th  SPACQ 


11th  PRCDTA 


12th  FFFT 

13th  AVG 

14th  SCAIL 


15th  GETIT 

16th  GRAFIT 


Test  program  for  the  I/O  package.  This 
is  a  complete  module  and  is  waiting  in¬ 
tegration  with  other  modules. 

Draws  axis  on  the  Tektronix. 

Draws  graticle  lines  in  y  direction. 
Draws  graticle  lines  in  x  direction. 
Labels  the  graticles  in  the  x  or  y  plane 
Draws  and  labels  the  graticles  in  the 
xy  plane. 

Draws  axis  and  graticles  in  xy  plane. 
Sets  the  vertual  window  for  SCREEN. 
Controls  receiver  for  FULL  MON  button 
in  SPECTRL  program.  This  is  a  complete 
working  module . 

Controls  the  DAU  for  a-1  acquisitions. 
This  is  a  complete  module.  It  incor¬ 
porates  the  pre-start  circuit  condi¬ 
tions.  All  data  returned  in  this  pro¬ 
gram  is  good  data.  There  are  no  pre¬ 
vious  words  of  data  that  must  be  ignored 
Indevelopment  program  to  process  the 
data  for  frequency  and  time  domain 
analysis . 

Indevelopment  program  to  execute  the 
FFT  algorithm. 

Program  to  average  data.  This  program 
is  a  complete  module. 

Indevelopment  program  to  scale  data  for 
high  speed  to  integer  plotting  on  the 
Tektronix. 

Program  to  get  data  from  the  AP-120B. 
This  program  is  a  complete  module. 
Temporary  debugger  program  for  develop¬ 
ment  of  the  FUL  MON  program. 


C  ,vi  A  X  AND  MIN  RFFER  TO  TH  E  VALUES  IN  USFR  UNITS  ,  I.E. 

C  APPLES, FREQ, 03, ETC . 

C  OF  THE  ITEM  THAT  IS  TO  B  E  PLOTTED 

C  VIRWIN  COMPUTES  THE  SPACING  BASFC  ON  THE  NUMBER  OF 

C  TICS  YOU  WANT (NTI  C  ) 

C  AND  LEAVES  A  HALF  S D  A  C  I  NG  BOARDER 

C  OFSET  INDICATES  THE  LOCATION  ON  THE  OTHER  AXIS  YOU'D 

C  LIKE  AN  AXIS  TO 

C  BE  DRAWN. 

INTEGER  SCXSTR,SCXEND,SCYSTR,SCYEND 

DATA  SC XS TR,S C X  END, SC YSTR, SC YEND/ 0200, 4000, 0200, 3000/ 

33  WRITE(5,10) 

10  FORMAT! ' INPUT  X M I N ,X M A X , N X T I C  ONE  LINE  AT  ATIME  F12.5,I2') 
READ(5,11)XMIN,XMAX,NXTIC 

11  F0RMAT(2(F12.5/),I2) 

WRITE (5,20) 

20  FORMAT (' INPUT  Y M  I  N  ,  Y M A  X , N Y T I C  ONE  LINE  AT  A  T  I  YE  F12.5,I2‘) 

READ(5,11)YMIN,YMAX,NYTIC 
WRITE(5,30) 

30  FORMATC INPUT  XOFSET  YOFSET  2  F 1 2  -  5  '  ) 

READ(5,31 )XOFSET, YOFSET 

31  FORMAT  (2F12.5) 

W 15  I  T  E  (  5 , 5  0 ) 

50  FORMATC  INPUT  THE  CHARACTER  SIZE  1,2, 3, 4  ') 

READ(5,51)ICHAR 

51  FORMAT  (ID 
CALL  TEKTRO 

CALL  VIRWIN(X'/<AX,XMIN,YMAX,YMIN,NXTIC,NYTIC) 

CALL  AN NOT (XMIN,XMAX,NXTIC, YOFSET, 

* YM IN, YM AX, NYTIC, XOFSET, 

*SCXSTR,SCXEND,SCYSTR,SCYEND,ICHAR) 

CALL  TSEND 
GO  TO  33 
END 
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SUBROUTINE  4XI3(XMIN,XMAX,Y0FSET,Y'AIN,Y114X 
*  ,  X  0  F  S  E  T  ) 

10Q  CALL  NOVF A  (X«IN,YOFSET) 

203  CALL  DRAWA (X^AX, YOFSET) 

300  CALL  NOv'EA  (XOFSET,YNIN) 

CALL  DRAWA(XOFSET,YNAX) 

XOFSET=XOFSET 
YOFSET=YOFSET 
X*AX=XNAX 
YyAX=YN4X 
X*IN  =  X>1IN 
YVIIN=YV1IN 
RETURN 
END 
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SUBROUTINE  XGRATL(XLRL,YMIN,Y*!AX) 
CALL  M0VEA(XLBL,Y*!IN) 

CALL  DASHA  (XL3L,Y*AX, 1 ) 

CALL  MOVEACXLSL/YMIN) 

RETURN 
F  \'D 
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SUBROUTINE  YGRATL(YL9L,X’*IN,X*,4X) 
CALL  vOVE A ( XYIN, YLBL) 

C'LL  DASHA (X^AX, YLBL, 1 ) 

CALL  V'0VEA(XV'IN,YL3L) 

RETURN 

END 


SUBROUTINE  GRATCL(II,?1AX,*IN,NTIC,OMIN,Ov!AX,ICHAR) 
INTEGER  B LK(33) 

REAL  NAX^IN^BL 

SPACE  =  (VIAX-MIN)/(NTIC-1.0) 

CALL  CHRSIZ(ICHAR) 

DO  IQ  J=1  ,NTIC 
L9L  =  VIIN  +  SPACE*  (  J-1  ) 

ENCODE (3LK ,200) L3L 
200  FORMAT (El  0.3) 

I F ( A3S (L3L-MIN) .LE . ( SPACE /2 )  )G0  TO  10 

IF  (I  I  .E3  .1  )G0  TO  1 

CALL  YGRATLCLBL^ONIN^O'IAX) 

GO  TO  2 

1  CALL  XGRATL(LBL,0VIN,0"AX) 

2  CALL  AN3STR(3L<,10) 

10  CONTINUE 

RETURN 

END 
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SUBROUTINE  SCREEN(XMAX,XVIN,nxTIC,Y’"AX,YMIN,NYTIC, 
+1 CHR) 

11  =  1 

CALL  XGRATL  (  X*!  I  N  ,  YM  I N  ,  YM  A  X  ) 

CALL  GRATCL(II,X'1AX,XMIN,NXTIC,Y,'1IN,Y!"AX,ICHAR) 
11=0 

CALL  YGRATL(YriN,XWlN,XttAX) 

CALL  GRATCL(II,YV!AX,Y’''!IN,NYTIC,XMIN,XMAX,ICHAR) 

RF  TURN 
END 
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S  T°CF 


SUBROUTINE  A  N  N  0  T  CXv,IN,X11AX/NXTIC,YOFSET, 
*r"'lIN,YMAX,NYTIC,XOFSET, 
*SCXSTR,SCXEND,SCYSTR,$CYEND,ICHAP) 

INTEGER  SCXSTR,SCXEND,SCY5TR  ,  S  C  Y  E  N  D 
10  CALL  TwINDO (SCXSTR, SC XEND ,5C YSTR, SC YEND) 

20  CALL  AXIS  (X"IN,X*AX,  YOFSET,  Y*IN,  Y*l  A  X  ,  X3  F  S  £  T  ) 

30  CALL  SCREEN(X*AX,XMIN,NXTIC,Y*!AX,Y"1IN#NYTIC,ICHAfl) 

RETURN 
END 
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SUBROUTINE  VIRWlN<XtfAX,XVtlN,YMAX,YMlN,NXTIC, 
♦MYTIC  ) 

XSPACE  =  (Xv1AX-XvIIN)/(NXTIC-1.E)) 

xyiint=x-iin-xs?ace/2.o 

X'*1AXTsXvIAX  +  XSPACE/2.0 
YSPACE*(Y*AX-Y«IN)/(NYTIC-1.0> 

YMINT  =  YV1IN-YSPACE/2.0 
YNAXT=YvAx+YSPACE/2.1 
call  DWINDO(XVINT,X'v1AXT,YvIINT,Y*!AXT) 

RETURN 

END 
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SUBROUTINE  SPRCVR(SFREQC,SFREQ9,SP"1DE) 
INTEGER  SPCV1D(3,3),SPV,DE,SFREQC,SFRE33 
DATA  SPCMD/Y,37F,,Y'230,,Y'100,,Y,100' 
*Y'37F,Y'218',3*0/ 

CALL  KTLWR(7,SFREQC ) 

CALL  KTLJR(9,SFREQ>?> 

DO  5  1=1,3 

CALL  KTL^S(5,SPC*D<I,SPV’DE)) 

RETURN 

END 
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SUBROUTINE  S  P  A  C  Q  (  FRE3/DAUV^0E/DAU0TA,5L<SI  Z  ) 

INTEGER*?  DA'JC*lD(7,2),DAUDTA(205Q),ICQDE 
INTEGER  DAUMDE,3LKSIZ 

D«  TA  0400^0/3,4,0,3,16,5,17,3,4,3,3,32,5,34/ 

C  SET  SAMPLE  RATE 

C*LL  3C0FRQ(FREQ) 

CALL  WAITMSC015Q) 

OAJC'-1DC3,OAUrO£)=BL<SIZ 
DO  5  1  =  1  ,6,2 

5  CALL  DA  JREG  (DAUC*D  ( I  ,t>4U"1DE  >  ,DAUCND  CI+1  ,D  AU*DE  >  ) 

CALL  DAURUN(DAUC^D(7,DAUMDE),  ICODE) 

C  GET  THE  DATA 

DAUC^D  (  3,  DAU^DE  )  =2*DAUCf*D  (3 ,DAU*DE) 

DAUCVID(1,DAUMDE)=1 

CALL  DAUGET(DAUDTA,DAUC*D(1,D4UMDE),DAUC1D(3,OAUMDE)) 

RETURN 

END 
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SUBROUTINE  PRCDTA(DAUDTA,BLKSIZ,TIVIDVI,RESULT,I,BLKAVG) 
INTEGER*2  DA'JDTA 

INTEGER  3  LKSIZ,TnDM, RESULT, SOUR  CE(2),BLKAVG 

STRCE 

SOURCE (1 )=0 
SOURCE  (2 ) =2043 
J  =1 

IF  M0D(I,2)  .EQ.O) J=2 

5  CALL  APPUT (DAUDTA,SOURCE(J) ,2*3LKSIZ,1 ) 

SOURCE  (J  )=SOURCE  (J ) 

C  3  U  T  THE  APWD  AT  STATEMENT  20  AFTER  THE  FRE3  DOMAIN  WOP<S 
CALL  APND 

IF(TIMDM.EQ.1)G0  TO  20 
1 1 1  =  3  -J 

10  CALL  FFFT(SOURCE(III),BLKSIZ,I) 

SOURCE(III)=SO'JRCE(III) 

RESULT =61 4  A 
RETURN 

20  CALL  VFLT(S0'JRCE(1  )  ,1,S0URCE(1)  ,1,BL<SIZ*2) 

RESULT=3 
1 00  RETURN 
END 
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SUBROUTINE  FF FT (SOURCE, BLKSIZ,J) 

INTEGER  SOURCE, 3LKSIZ,DESTI»J, SUM 
REAL  STOR (2050) 

DATA  DESTIN, SUM/4096, 61  44/ 

CALL  VFLT( SOURCE, 1, SOURCE, 1,2*3L<SIZ> 

CALL  APWR 

CALL  APGET (STOR, SOURCE, 3L<SI Z, 2) 

CALL  APWD 

WRITC(8,13)  (ST0R(K),K=1,3LKSIZ) 

CALL  CFFTB  (SOURCE, 4096, BL<SIZ,1) 

CALL  APWR 

CALL  APGET(ST0R,4096,BL<SIZ,2) 

CALL  APWD 

WRITE(3,13)(ST0R(K),K=1,RLKSIZ> 

13  FORMAT  (S FI  4.5) 

30000  I  F  (J  .NE  .1  )C ALL  SCJMA (4095,1  ,6144,1 ,61  44,1 
*3LKS  IZ) 

I F  (J . EG  .1 )G0  TO  400C0 
CALL  APWR 

CALL  APGET (ST0R,6144,RLKSIZ,2) 

CALL  APWD 

WRITE(8,13)(STOROO,K  =  1,PLKSI7) 

40030  IF(J.EG.1  )CALL  V  C  L  R  (  6  1  4  4,  1 , 9L  <  S  I  Z  ) 

R ETURN 
END 


SUBROUTINE  AVG(3LKSIZ,9LKAVG, SOURCE) 

INTEGER  3LKSIZ,3LKAVG, SOURCE 
FACTORS  .0/(9  LKSIZ*9LKA\/G) 

IPUT=153SO 

CALL  APPJT(FACTOR,  IPUT,1 ,2) 

C  REMOVE  THIS  WAIT  CMD  AND  SEE  WHAT  HAPPENS 

C  IT  'IIGHT  WORK  WITHOUT  IT  BECAUSE  ONLY 

C  ONE  NUN9ER  IS  GOING  IN  AND  I G  H  T  NOT 

C  NEED  TO  WAIT  SO  LONG 

CALL  APWD 

CALL  VSMUL(SOURCE,1, IPUT,SOURCE,1,9LKSIZ) 

RETURN 

END 
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SUBROUTINE  SC^ILC SOURCE, 3LKS I Z,IYPT, SCALE, TI^DM) 

INTEGER  SOURCE,  3LKS  I  Z,IYPT,TI  MOM,  VVMAX,VV"IN 
*, RANGE, YPTRNG,SCAL 
INTEGER*?  IDIOT 
REAL  SCALE(23) ,STOR(2050) 

DATA  VV  T1  AX, VV1IN, RANGE, SCAL,YPTRN 5/8360,3364,8368,/ 
*8372,3376 

STRCE 

SOURCE=SOURCE 
BL<SIZ=OLKSlZ 
I DIOT=I YPT 

CALL  VC  LR ( VVM  AX , 1 , 2  0) 

CALL  APPUT ( IDIOT, YPTRNG,1  ,1  ) 

CALL  APPUT (IDIOT, YPTRNG  +  1  ,1  ,1  ) 

CALL  APWO 
J  =  1 

I  F  (TI*D’-1.EQ.  1  )  J=2 
DO  43  1=1, J 

330  CALL  ivlAXV  (  SOURCE*  ( 1-1  )  ,J  ,VV’/!A  X  +  (  1-1  )  ,  R  L  <  5  I  Z) 

430  CALL  MINV  (SOURCE  +  (I -1  )  ,J  ,VV1IN  +  (  1-1  )  ,3LKS  IZ  ) 

45  CONTINUE 

13  CALL  VSU3 (VVNIN,1 ,VVMAX,1 , RANGE, 1 ,2) 

600  CALL  VFLT( YPTRNG,1 ,YPTRNG,1  ,1) 

700  CALL  VDIV(RANGE,1,YPTRNG,1,SC«L,1,2) 

CALL  A  P  A R 

CALL  AP3EKSC  ALE,VV*!AX,20,2) 

CALL  A  P  W 0 
DO  63  I =1  ,20 
SCALE  (I)=SCALE (I) 

63  CONTINUE 

DO  53  1=1, J 
SOURCE=SOURCE 
SC AL=SCAL 
J  =J 

BLKSIZ=3LKSIZ 

IF  (TIiy!DyI.E0.1)8LKSIZ  =  2*3LK.cIZ 
CALL  A=>WR 

CALL  APGET(ST0R,S0URCE+(I-1),PLKSIZ,2) 

CALL  A  P  W D 

DO  737  KK  =  1 , BL K  S  I  Z 
STOR(<K)=STOR(K<) 

737  CONTINUE 

IF(TIMDM.EQ.1)BLKSIZ=BLKSIZ/2 

300  CALL  VS-'1UL(SOURCE+’(I-1),J,SCAL+(I-1),SOURCE  +  (I-1),J,6L<SIZ) 
CALL  APWR 

CALL  APGET(Sr0R,S0URCE+(I-1),BLKSIZ,2) 

CALL  APWO 

DO  73  IC<  =  1,BLKSIZ 

STOR  (KK^STQ3  (  K  K  ) 

73  CONTINUE 

53  CONTINUE 

20  RFTURN 


SUBROUTINE  GETIT(PR0DTA,S0URCE,3L<SIZ) 
INTEGER  SOURCE  /BLICSIZ 
INTEGER*?  PR0DTA(2050) 

550  CALL  VFIX(S0URCE,1 , SOURCE, 1,9LKSIZ) 

560  CALL  APWR 

570  CALL  APGET  ( PR ODT A , SOUR C E , 3 L< S I Z , 1 ) 

CALL  Af>WD 

RETURN 

END 
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SUBROUTINE  GRAFIT(IXST,IYST,IX'1XPT,NPTS, 
*ioATA,maH) 

INTEGERS  IDATA(2050) 

INTEGER  T  I  >1  D  vi 
INCRf*lT  =  lX.YXPT /NPTS 
J=1 

I F ( T I  MOM . EQ . 1 ) J  =2 

452  CALL  M0VABS(IXST,IYST+IDATA(1)) 

00  5  1=1, NPTS, J 

CALL  0RJABS(IXST+INCRMT*(I),IDATA(I+1)+IYST) 
CONTINUE 

CALL  'MOy/ABS  0000,3120) 

460  CALL  TSEND 
RETURN 
FND 
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LIST  OF  ABBREVIATIONS 


AC 

-  Alternating  Current 

ADC 

-  Analog-to-Digital  Conversion 

CSS 

-  Command  Substitution  System 

DAU 

-  Data  Acquisition  Unit 

EFT 

-  Fast  Fourier  Transform 

FLTSAT 

-  Fleet  Satellite 

FSM 

-  Fleet  Satellite  Communications 

Spectrum  Monitor 

HP 

-  Hewlett-Packard 

IEEE 

-  Institute  of  Electronic  and  Electrical 
Engineers 

I/O 

-  Input-Output 

NAVELEX 

-  Naval  Electronic  Systems  Command 

NAVPGSCOL 

-  Naval  Postgraduate  School 

NPS 

-  Naval  Postgraduate  School 

PME 

-  Project  Management  Electronics 

RF 

-  Radio  Frequency 

RFI 

-  Radio  Frequency  Interference 

RS 

-  Recommended  Standard 

SATCOM 

-  Satellite  Communications  (also  appears 
as  a  name  for  a  program  in  Chapter  3) 

SPCHNL  A,B,C 

-  Spectrum  Receiver  Channel  A  or  B  or  C 

SPECTRL 

-  Spectrum  Control  Program 

SSA 

-  Satellite  Signal  Analyzer 

SVC 

-  Supervisor  Calls 

UHF 

-  Ultra  High  Frequency 
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